Hoi, Chummers.
Um festzustellen, ob eine Datei oder ein Pfad existent ist, kann man sehr komfortabel das FileSystemObject benutzen. Dafür müsst Ihr unter Projekt/Verweise ein Verweis auf die "Microsoft Scripting Runtime" erstellen. Wenn Ihr das getan habt, kann es auch schon losgehen:
Für dieses Beispiel benötigst du zwei Textfelder (txtPfad und txtDatei) und eine Schaltfläche (cmdCheck).
Viel Erfolg!
mfG,
Malcolm
Keywords: Visual Basic, VB6, Prüfen ob Datei exisitiert, Ordner existiert, Funktion, Function, FileExist, DirectoryExist, FSO, File System Object
Um festzustellen, ob eine Datei oder ein Pfad existent ist, kann man sehr komfortabel das FileSystemObject benutzen. Dafür müsst Ihr unter Projekt/Verweise ein Verweis auf die "Microsoft Scripting Runtime" erstellen. Wenn Ihr das getan habt, kann es auch schon losgehen:
Visual Basic-Quellcode
- Option Explicit
- Private Sub cmdCheck_Click()
- Dim Fso As FileSystemObject
- Set Fso = New FileSystemObject
- If txtDatei.Text <> "" Then
- If Fso.FileExists(txtDatei.Text) = True Then
- MsgBox "Die Dateiexistiert !", Title:="Erfolg!"
- Else
- MsgBox "Die Datei existiert nicht !", Title:="Misserfolg!"
- End If
- End If
- If txtPfad.Text <> "" Then
- If Fso.FolderExists(txtPfad.Text) = True Then
- MsgBox "Der Pfad existiert !", Title:="Erfolg!"
- Else
- MsgBox "Der Pfad existiert nicht !", Title:="Misserfolg!"
- End If
- End If
- End Sub
Viel Erfolg!
mfG,
Malcolm
Keywords: Visual Basic, VB6, Prüfen ob Datei exisitiert, Ordner existiert, Funktion, Function, FileExist, DirectoryExist, FSO, File System Object
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mad Andy“ ()