FolderExists-Methode

Gibt "True" zurück, wenn ein angegebener Ordner vorhanden ist, oder "False", wenn er nicht vorhanden ist.

Syntax

object.FolderExists(folderspec)

Argumente:

• Object: Erforderlich. Immer der Name eines Elements FileSystemObject.
• Folderspec: Erforderlich. Ein absoluter Pfad zu dem Ordner, dessen Vorhandensein ermittelt werden soll.

Das folgende Beispiel veranschaulicht die Verwendung der FileExists-Methode.

Beispiel 1:

Function CheckFolderExistence(fldr)
    Dim fso, msg
    Set fso = CreateObject("Scripting.FileSystemObject")

    If fso.FolderExists(fldr) Then
        msg = fldr & " exists."
    Else
        msg = fldr & " doesn't exist."
    End If

    CheckFolderExistence = msg
End Function

' Usage
Dim folderPath
folderPath = "C:\1"
bExists = CheckFolderExistence(folderPath)
'bExists now holds C:\1 exists. if the folder exists, else It will have C:\1 doesn’t exists.