Prüfen, ob ein Verzeichnis existiert IV Und noch eine Variante, mit der sich prüfen lässt, ob ein bestimmtes Verzeichnis existiert oder nicht.
Autor:   Christian Voigt	Bewertung:	Views:  39.511
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Es gibt wirklich viele Methoden, um herauszufinden, ob ein Ordner vorhanden ist oder nicht.
Aber die FolderExists-Methode ist wohl doch die einfachste.

Als erstes muss man hierzu den Verweis Microsoft Scripting Runtime aktivieren (Menü Projekt - Verweise).
Die Prüfung, ob ein Ordner existiert, erfolgt dann wie folgt:

' Prüfen, ob ein Ordner existiert
Public Function FolderExists(ByVal sFolder As String) As Boolean
  ' Deklaration des FileSystemObjects
  Dim oFSO As New FileSystemObject
 
  FolderExists = oFSO.FolderExists(sFolder)
End Function

Beispiel für den Aufruf:

' Prüfen, ob Ordner "c:\test" existiert
If FolderExists("c:\test") Then
  MsgBox "Ordner ist vorhanden."
End If

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.