Überprüfung auf Datei und Ordner Existens


Mit diesem Script haben Sie die Möglichkeit, für die verschiedensten Anwendungen zu prüfen, ob eine Datei oder ein Ordner überhaupt vorhanden ist. Weiterhin Routinen für das automatische setzen von Backslash´s von Adressen.
Laden Sie sich die Zip-Datei mit VB 6 Source Code hinunter und probieren Sie es mal aus.

Projekt - Download
 

 
© FienauBerlin   Web-ComputerEcke.de
 

Quell-Code
Option Explicit

Private Sub Command1_Click() If FileExists("C:\WINDOWS\SYSTEM\SHELL32.DLL") Then Label1.Caption = "Datei existiert" Else Label1.Caption = "Datei existiert nicht" End If End Sub
Private Sub Command2_Click() If FolderExists("C:\WINDOWS\SYSTEM\") Then Label2.Caption = "Verzeichnis existiert" Else Label2.Caption = "Verzeichnis existiert nicht" End If End Sub
Function FileExists(Datei$) 'Datei auf Existenz prüfen FileExists = (Dir(Datei$) <> "") End Function
Function FolderExists(Folder$) 'Verzeichnis auf Existenz prüfen FolderExists = (Dir(Folder$) <> "") End Function
'Backslash wenn notwendig an Pfadnamen anhängen 'Die Routine: Ergebnis$ = CheckPath$(Pfad$) + Datei$ Function CheckPath$(Pfad$) If Right$(Pfad$, 1) <> "\" Then CheckPath$ = Pfad$ + "\" Else CheckPath$ = Pfad$ End If End Function
'Die Routine: Ergebnis$ = AppPath + Datei$ Function AppPath() Dim tmp$ tmp$ = App.Path If Right(tmp$, 1) <> "\" Then tmp$ = tmp$ & "\" AppPath = tmp$ End Function