VBA – Prüfen, ob Datei oder Ordner vorhanden ist

Written by

Mel Jenkins

Reviewed by

Steve Rynearson

Translated by

Zakarya El Oirzadi

Last updated on Oktober 30, 2023

Mit VBA können Sie prüfen, ob eine Datei oder ein Ordner existiert, indem Sie die Dir-Funktion verwenden.

Mit dem Befehl Dir prüfen, ob eine Datei vorhanden ist

Wie in der Einleitung erwähnt, können wir mit der Dir-Funktion prüfen, ob eine ausgewählte Datei auf dem Computer vorhanden ist. Hier ist der Code:

Sub Datei_Existenz_Pruefung()

Dim strDateiName As String
Dim strDateiExistiert As String

    strDateiName = "C:\Benutzer\Nikola\Desktop\VBA-Artikel\Datei_Exitenz_Pruefung.xlsx"
    strDateiExistiert = Dir(strDateiName)

   If strDateiExistiert = "" Then
        MsgBox "Die ausgewählte Datei existiert nicht"
    Else
        MsgBox "Die ausgewählte Datei existiert"
    End If

End Sub

Zuerst haben wir den Dateipfad der Variablen strDateiName zugewiesen. Dann verwenden wir die Funktion Dir, um den Dateinamen in die Variable strDateiExistiert zu übertragen. Wenn die Datei im Verzeichnis existiert, wird ihr Name der String-Variablen strDateiExistiert zugewiesen. Wenn sie nicht existiert, bleibt strDateiExistiert leer. Am Ende erscheint die Meldung, ob die Datei existiert oder nicht.

Mit dem Befehl Dir prüfen, ob ein Ordner vorhanden ist

Ähnlich wie bei der Prüfung, ob eine Datei existiert, können Sie prüfen, ob ein Ordner existiert. Sie müssen nur ein Argument an den Befehl Dir hinzufügen. Schauen wir uns den Code an:

Sub Ordner_Existenz_Pruefung()

Dim strOrdnerName As String
Dim strOrdnerExistiert As String

    strOrdnerName = "C:\Benutzer\Nikola\Desktop\VBA-Artikel\Testordner\"
    strOrdnerExistiert = Dir(strOrdnerName, vbDirectory)

    If strOrdnerExistiert = "" Then
        MsgBox "Der ausgewählte Ordner existiert nicht"
    Else
        MsgBox "Der ausgewählte Ordner existiert"
    End If

End Sub

Zuerst haben wir den Ordnerpfad der Variablen strOrdnerName zugewiesen. Dann verwenden wir die Funktion Dir, um den Dateinamen in die Variable strOrdnerExistiert zu übertragen. Um einen Ordner zu überprüfen, müssen wir das zweite Argument der Funktion hinzufügen – vbDirectory. Wenn der Ordner im Verzeichnis existiert, wird sein Name der Variablen strOrdnerExistiert zugewiesen. Wenn nicht, bleibt strOrdnerExistiert leer.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More!