Prüfung, ob Datei existiert (auch für Netzwerkpfade)

29/08/2007 - 22:37 von Kurt Zeiss | Report spam
Hallo,
ich habe eine Funktion, die mir bisher immer zuverlàssig gesagt hat, ob
eine Datei existiert.
Kann mir bitte jemand sagen, ob diese Funktion auch für Netzwerkpfade
funktioniert?
Ich habe keine zwei PCs miteinander vernetzt, um das auszuprobieren?
Danke für die Hilfe.
Kurt

Public Function FileExists(ByVal DateiPfad As String) As Boolean

'Aufrufbeispiel: msgbox FileExists("C:\meintext.txt")

Const NotFile = vbDirectory Or vbVolume

On Error Resume Next
FileExists = (GetAttr(DateiPfad) And NotFile) = 0
On Error GoTo -1

End Function
 

Lesen sie die antworten

#1 Ingo Moch
30/08/2007 - 00:02 | Warnen spam
Hallo Kurt,

"Kurt Zeiss" schrieb:

ich habe eine Funktion, die mir bisher immer
zuverlàssig gesagt hat, ob eine Datei existiert.
Kann mir bitte jemand sagen, ob diese Funktion
auch für Netzwerkpfade funktioniert?



Ja, funktioniert

Const NotFile = vbDirectory Or vbVolume

On Error Resume Next
FileExists = (GetAttr(DateiPfad) And NotFile) = 0



Du solltest hier IMHO auf den Fehlercode reagieren.
Ich nutze das in meiner Funktion dafuer, einen Status-
Wert zurueckzugenen, an dem gesehen werden kann, ob die
Daei nicht exisitiert, oder gleich der Ordner bzw. das
Laufwerk nicht existent sind.

HTH
Ingo

On Error GoTo -1



Wozu denn das?

Ähnliche fragen