Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 17.08.04 |
Datei-/Ordner-Existenz per API prüfen Mit diesem Tipp können Sie auf einfache Weise prüfen, ob eine Datei oder ein Ordner existiert. | ||
Autor: Holger Brauwer | Bewertung: | Views: 22.620 |
www.cx4free.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Ich habe hier im Archiv viele Möglichkeiten gefunden, um zu überprüfen, ob einen Datei bzw. ein Ordner existiert. Allerdings brauchte man hierfür immer zwei getrennte Funktionen. Mit Hilfe der PathFileExists-Funktion aus dem Windows-API (shlwapi.dll) lässt sich hingegen sowohl eine Datei- als auch eine Ordner-Existenz prüfen:
' Benötigte API-Deklarationen Private Declare Function PathFileExists Lib "shlwapi.dll" _ Alias "PathFileExistsA" ( _ ByVal pszPath As String) As Long
' Aufruf der API Public Function IsFilePath(strPath As String) As Boolean IsFilePath = CBool(PathFileExists(strPath)) End Function
Beispiel für den Aufruf:
' Datei-Existenz prüfen If IsFilePath("C:\test.txt") Then ... End If
' Ordner-Existenz prüfen If IsFilePath("C:\temp\") Then ... End If