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:     [ Jetzt bewerten ]	Views:  7.279
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 24 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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