Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 01.11.00 |
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: | Views: 46.546 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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