Mit VBA können Sie überprüfen, ob eine Datei oder ein Ordner vorhanden ist, indem Sie die Dir Funktion.
Verwenden des Dir-Befehls, um zu überprüfen, ob eine Datei vorhanden ist
Wie wir in der Einleitung erwähnt haben, ist die Dir Mit dieser Funktion können wir überprüfen, ob eine ausgewählte Datei auf dem Computer vorhanden ist. Hier ist der Code:
| 123456789101112131415 | Unter CheckFileExists ()Dim strFileName als StringDim strFileExists As StringstrFileName = "C:\Users\Nikola\Desktop\VBA article\Test File Exists.xlsx"strFileExists = Dir(strFileName)If strFileExists = "" ThenMsgBox "Die ausgewählte Datei existiert nicht"AndersMsgBox "Die ausgewählte Datei existiert"Ende WennEnd Sub |
Zuerst haben wir der Variablen den Dateipfad zugewiesen strDateiname. Dann verwenden wir die Dir Funktion um den Dateinamen in die Variable zu bekommen strFileExists. Existiert die Datei im Verzeichnis, wird ihr Name der String-Variablen zugewiesen strFileExists. Wenn es nicht existiert dann strFileExists bleibt leer. Schließlich erscheint die Meldungsbox, die uns informiert, ob die Datei existiert oder nicht.
Verwenden des Dir-Befehls, um zu überprüfen, ob ein Ordner vorhanden ist
Ähnlich wie bei der Prüfung, ob eine Datei vorhanden ist, können Sie prüfen, ob ein Ordner vorhanden ist. Sie müssen nur ein Argument zum hinzufügen Dir Befehl. Schauen wir uns den Code an:
| 123456789101112131415 | Unter CheckFolderExists ()Dim strFolderName As StringDim strFolderExists As StringstrFolderName = "C:\Benutzer\Nikola\Desktop\VBA-Artikel\Testordner\"strFolderExists = Dir(strFolderName, vbDirectory)If strFolderExists = "" ThenMsgBox "Der ausgewählte Ordner existiert nicht"AndersMsgBox "Der ausgewählte Ordner existiert"Ende WennEnd Sub |
Zuerst haben wir der Variablen den Ordnerpfad zugewiesen strOrdnername. Dann verwenden wir die Dir Funktion um den Dateinamen in die Variable zu bekommen strFileExists. Um einen Ordner zu überprüfen, müssen wir der Funktion das zweite Argument hinzufügen - vbDirectory. Existiert der Ordner im Verzeichnis, wird sein Name der Variablen zugewiesen strFolderExists. Wenn nicht strFolderExists bleibt leer.
