22.04.2018, 07:09
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
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