VB-Homepage Tipp 205

Fortsetzung - Shell32 / File Exist Prüfung

Wie haben Sie denn bisher überprüft, ob eine Datei existiert ? Ich nehme mal an, über x = Dir("C:\Windows\Notepad.exe"). Kein Problem, geht natürlich und deshalb ist nachfolgender Tipp eben auch nur ein Hinweiß, wie man es auch machen kann. 1. Neues Projekt mit einer Form anlegen 2. Allgemein/Deklarationen Private Declare Function SHFileExists Lib "shell32" Alias "#45" (ByVal szPath As String) As Long 3. Allgemein/FileExists 'wird durch das einfügen des Codes erzeugt Public Function FileExists(sPath As String) As Boolean FileExists = SHFileExists(sPath) End Function 4. Die Prüfaktion If FileExists("C:\Windows\Notepad.exe") = True Then    MsgBox "Datei existiert" Else    MsgBox "Datei existiert nicht" End If Der Rückgabewert bei einer existierenden Datei ist TRUE, ansonsten FALSE.

Tipp-Download

Quelle :