Prüfen, ob eine Datei existiert Diese universelle Funktion prüft, ob eine bestimmte Datei (auf einem bestimmten Laufwerk/Verzeichnis) existiert.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  28.598
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 107 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Es gibt wahrscheinlich keine Anwendung, bei der Sie nicht wissen (abfragen) müssen, obeine Datei in einem bestimmten Verzeichnis des Anwenders existiert. Die nachfolgende Funktionprüft die Extistenz einer beliebigen Datei und liefert den Wert True, wenn diesevorhanden ist bzw. False, wenn die Datei nicht gefunden werden konnte.

Public Function FileExists(ByVal sFile As String) As Boolean
 
  ' Der Parameter sFile enthält den zu prüfenden Dateinamen
 
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen(sFile)
  FileExists = (Err = 0)
  On Local Error Goto 0
End Function