Ueberprüfung, ob Datei vorhanden ist
Peter
In der Variable strFullNamePEBS steht der Fullname einer Datei. Nun will ich prüfen, ob diese exisitert (nicht, ob sie geöffnet ist). Das geschieht mit der Funktion psFileExists. Auch wenn der Name nicht existiert, erhalte ich keine MsgBox und das Programm wird nicht abgebrochen. Bei der Funktion sehe ich, dass die Zeile
psFileExists = "Nein"
durchlaufen wird.
Weshalb, ist mir nicht klar. Wo ist mein Überlegungsfehler?
Gruss, Peter
If psFileExists(strFullNamePEBS) = "NEIN" Then
MsgBox "Datei " & strFullNamePEBS & " fehlt ", vbCritical, "Datei nicht bereitgestellt !!!"
End
End If
Public Function psFileExists(PfadNameExt As String) As String
Dim strDummy As String
strDummy = Dir(PfadNameExt, vbNormal)
Debug.Print PfadNameExt
If strDummy = "" Then
psFileExists = "Nein"
Else
psFileExists = "Ja"
End If
End Function
Anzeige