Wie verwende ich die Funktion Dir in VBA?

Die `Dir`-Funktion in VBA (Visual Basic for Applications) wird verwendet, um Dateinamen oder Verzeichnisnamen in einem bestimmten Pfad zu suchen und zurückzugeben. Sie kann auch genutzt werden, um zu prüfen, ob eine bestimmte Datei oder ein Verzeichnis existiert. Die Verwendung von `Dir` erfolgt in mehreren Schritten. Hier ist, wie du die `Dir`-Funktion einsetzen kannst:

Grundlegende Verwendung

Einzelne Datei suchen:

Um eine bestimmte Datei zu finden, kannst du `Dir` mit dem vollständigen Pfad- und Dateinamen verwenden. Wenn die Datei existiert, gibt `Dir` den Dateinamen zurück. Wenn nicht, gibt sie eine leere Zeichenkette zurück.

   Dim fileName As String
   fileName = Dir("C:PfadzurDatei.txt")

   If fileName <> "" Then
       MsgBox "Datei gefunden: " & fileName
   Else
       MsgBox "Datei nicht gefunden."
   End If

Dateien in einem Verzeichnis auflisten:

Du kannst `Dir` auch verwenden, um alle Dateien in einem Verzeichnis aufzulisten. Hierbei kannst du Platzhalter wie `*` und `?` benutzen.

   Dim file As String
   file = Dir("C:PfadzumVerzeichnis*.txt")  ' Nur .txt-Dateien

   Do While file <> ""
       MsgBox "Gefundene Datei: " & file
       file = Dir
   Loop

Wichtig ist hierbei, dass der erste `Dir`-Aufruf den Suchpfad enthält und jeder nachfolgende `Dir`-Aufruf ohne Argumente erfolgt.

Verzeichnisse auflisten:

Um Verzeichnisse aufzulisten, kannst du `Dir` mit dem Parameter `vbDirectory` verwenden:

   Dim directory As String
   directory = Dir("C:PfadzumVerzeichnis*", vbDirectory)

   Do While directory <> ""
       ' Stelle sicher, dass es sich um ein Verzeichnis handelt
       If (GetAttr("C:PfadzumVerzeichnis" & directory) And vbDirectory) = vbDirectory Then

facebooklinkedin