Überprüfen ob Datei vorhanden

[Florian20]

Guten Morgen Community,

Ich habe mal wieder ein Problem und hoffe doch das Ihr mir helfen könnt.
Ich möchte gerne Überprüfen lassen ob in dem eingegebenen Ordner meine Datei vorhanden ist. 


Hier mein Code:

Private Sub testen()
'Überprüft ob ein Pfad eingegeben ist
Pfad = Sheets("Adressen").Range("J10").Value
If Pfad = "" Then GoTo F
'Überprüft ob die Datei vorhanden ist
 If Dir(Pfad + ("\meExcelIni.txt")) = True Then
    Exit Sub
    Else
    MsgBox "Datei ist im Pfad nicht vorhanden!", vbExclamation, "Fehler Info Box!"
  Call pfad_definieren
End If
'=========================================================================
F: MsgBox "Sie haben beim 1 mal Öffnen" & vbLf & _
       "Keinen Pfad angegeben!", vbExclamation, "Fehler Info Box!"
End Sub

Es funktioniert nicht aber Ich weiß nicht warum  
Könntet Ihr mir helfen?

Ps. Debugger Ist: Laufzeitfehler "52" Dateiname oder Nummer falsch
Der Fehler wird bei: If Dir gesetzt und Markiert
LG Flo

[RPP63]

Moin!
+ als Verkettung funktioniert zwar, ist aber ungewöhnlich.
Du solltest & benutzen.
Dir(Pfad & Name) ergibt keinen Wahrheitswert, sondern den Dateinamen ohne Pfad.
Dir() sollte daher auf <> "" überprüft werden.

Gruß Ralf

[Florian20]

Morgen,

Danke für die schnelle Antwort aber es geht so leider auch nicht 
 
If Dir(Pfad & ("\meExcelIni.txt")) <> "" Then

Hast du vielleicht noch eine Idee?

[RPP63]

Ich weiß ja nicht, was in Sheets("Adressen").Range("J10") steht.
Bei mir klappt folgendes problemlos:
Pfad = "H:\Temp"
Debug.Print Dir(Pfad & "\x.txt")
ergibt
x.txt
(wenn die Datei vorhanden ist, ansonsten einen Leerstring)

Gruß Ralf

[Florian20]

Also bei mir geht es nicht in J10 ist der eingegebene Pfad.
Der Pfad wird beim 1 mal Öffnen abgefragt wo dieser ist und wird dann in dieser zelle gespeichert.
lg Flo

[Florian20]

Ich habe es auch schon anders probiert aber immer der gleiche fehler 

Dim file, pattern
file = Array("meExcelIni.txt")
Pfad = Sheets("Adressen").Range("J10").Value
'=========================================================================
'Überprüft ob ein Pfad eingegeben ist
If Dir(Pfad) <> "" Then
End If
'=========================================================================
'Überprüft ob die Datei vorhanden ist
For Each pattern In file
If Dir(Pfad & pattern) = "" Then
    Else
    MsgBox "1. Sie haben beim 1 mal Öffnen" & vbLf & _
           "    einen Falschen Pfad angegeben!" & vbLf & vbLf & _
           "2. Die Datei ist in diesem Pfad nicht vorhanden!", vbExclamation, "Fehler Info Box!"
    Call pfad_definieren
  End If
Next

nur weiß ich nicht warum 
Jetzt überprüft er nur den pfad nicht mehr die datei sehr komisch

[Steffl]

Hallo Florian,

lass dir vor dem If Dir.. mit

Code:

MsgBox Pfad & pattern
bzw.
Debug.Print Pfad & pattern

anzeigen, auf was Du überhaupt prüfst.

[Florian20]

Hi Stefan,

Also Ich möchte gerne Überprüfen ob in dem Pfad der angegeben wurde meine Datei vorhanden ist.
Der Pfad ist als Variable gesetzt und wird in zelle J10 geschrieben um ihn zu speichern.

Vor dem Öffnen der Mappe will Ich nun Prüfen ob die .txt Datei vorhanden ist. 
Wenn Nicht dann möchte Ich das der Anwender noch einmal einen Pfad eingeben muss.

Lg Flo

[RPP63]

Sakra!
Warum beantwortest Du nicht einfach mal meine Frage, was genau in der Zelle steht?
Wenn Du jetzt antwortest: "Der Pfad", dann bin ich hier raus!

Gruß Ralf

[Florian20]

Hi sorry 
Also in der Zelle J10 = z.B. C:\Users\Florian\Desktop\  (meExcelIni.txt)
Und die Datei in den Klamern soll überprüft werden ob diese in dem angegeben Pfad vorhanden ist.

Kruz form:

wenn Datei in Pfad dann weiter
wenn Datei nicht in Pfad dann zurück (Neuen Pfad eingeben)

Lg Flo