![\"Elemente](\"..\/fileadmin\/_temp_\/2024_06\/pic_453_001.png\")
<\/p>\nDie Verwaltung von Dateien per Code ist öfter gefragt, als man denkt. Damit lassen sich Verzeichnisse erstellen, auslesen und entfernen, Dateien erstellen, löschen und bearbeiten und vieles mehr. Leider sind die Bordmitteln von VBA hier teilweise ein wenig sperrig. Allerdings sind sie für einfache Aufgaben durchaus ausreichend und erfordern nicht den Einsatz einer zusätzlichen Bibliothek wie der Scripting Runtime, wie es beispielsweise beim FileSystemObject der Fall ist. Also schauen wir uns in diesem Artikel einmal die Elemente von VBA an, mit denen wir auf die Elemente des Dateisystems zugreifen können und zeigen, was sich damit alles anstellen lässt. Schließlich schauen wir aber auch noch kritisch auf mögliche Nachteile.<\/b><\/p>\nDefinitionen<\/h2>\n
In diesem Artikel werden wir die verschiedenen Elemente des Dateisystems benennen. Dabei wollen wir folgende Elemente definieren: Ein Pfad ist der gesamte Pfad von der Wurzel bis zum Dateinamen inklusive Dateiendung, also zum Beispiel c:\\Verzeichnis1\\Datei1.txt<\/b>, oder bis zu einem Verzeichnis (c:\\Verzeichnis1<\/b>). Ein Verzeichnis ist das darin enthaltene Verzeichnis1<\/b>. Eine Datei oder Dateiname ist Datei1.txt<\/b>.<\/p>\nDie FileSystem-Klasse und Alternativen<\/h2>\n
Eine der bekanntesten Anweisungen zum Arbeiten mit dem Dateisystem ist vermutlich die Dir()<\/b>-Funktion. Suchen wir im Objektkatalog nach dieser, finden wir schnell heraus, dass sie zu einer Klasse namens FileSystem<\/b> gehört (siehe Bild 1).<\/p>\n
<\/p>\n
Bild 1: Elemente der Klasse FileSystem im Objektkatalog<\/span><\/b><\/p>\n Diese enthält noch einige weitere Elemente, von denen man vermutlich nicht alle auf dem Schirm hat.<\/p>\n In diesem Artikel werden wir uns diese im Detail ansehen und verschiedene praktische Lösungen zeigen, die sich damit realisieren lassen – ganz ohne weitere Bibliotheken.<\/p>\n Allerdings wollen wir alternative Möglichkeiten, die überdies in vielen Fällen leichter handzuhaben sind, nicht außen vor lassen. Deshalb gehen wir in einem weiteren Artikel beispielsweise auf das FileSystemObject <\/b>ein, einer Klasse der Bibliothek Dateimanagement mit dem FileSystemObject verwalten <\/b>(www.vbentwickler.de\/455<\/b>).<\/p>\n Nun allerdings schauen wir uns erst einmal die grundlegenden Funktionen der verfügbaren Elemente zum Arbeiten mit Dateien und Verzeichnissen an.<\/p>\n Hier finden wir die folgenden Elemente:<\/p>\n Mit der Funktion ChDir <\/b>können wir das Arbeitsverzeichnis wechseln. Mit CurDir <\/b>ermitteln wir das aktuelle Arbeitsverzeichnis.<\/p>\n Mit dem folgenden Beispiel lassen wir uns das Arbeitsverzeichnis vor der Änderung ausgeben, ändern es dann und geben dann das geänderte Arbeitsverzeichnis aus:<\/p>\n Um zu prüfen, wie sich die Performance bei den beiden Funktionen CurDir <\/b>und CurDir$ <\/b>verhält, haben wir die folgenden beiden Funktionen jeweils 10.000 Mal durchlaufen lassen:<\/p>\n CurDir$ <\/b>war dabei im Schnitt ca. 5% schneller als CurDir<\/b>.<\/p>\n Wenn wir eine Datei mit Open geöffnet haben, können wir anschließend mit FileAttr <\/b>prüfen, in welchem Zugriffsmodus sich die Datei befindet.<\/p>\n Im folgenden Beispiel öffnen wir eine bereits vorhandene Textdatei und lesen mit FileAttr(intFileNum, 1) <\/b>den Zugriffsmodus aus:<\/p>\n Um eine Datei von einem Ort zum anderen zu kopieren, verwenden wir die Anweisung FileCopy<\/b>. Diese erwartet die beiden Parameter Quellpfad und Zielpfad.<\/p>\n Ein einfaches Beispiel kopiert die Datei Test.txt <\/b>in eine neue Datei namens Text_Kopie.txt<\/b>:<\/p>\n Das Datum der letzten Änderung können wir mit der Funktion FileDateTime <\/b>ermitteln:<\/p>\n Das Ergebnis lautet beispielsweise:<\/p>\n Mit der FileLen<\/b>-Funktion ermitteln wir die Größe einer Datei in Byte:<\/p>\n Mit der Funktion FreeFile <\/b>erhalten wir eine Nummer zurück, die aktuell nicht in Zusammenhang mit einer geöffneten Datei in Verwendung ist, um eine aktuell geöffnete Datei zu referenzieren.<\/p>\n Im folgenden Beispiel schreiben wir die nächste freie Nummer in die Variable intFileNum<\/b>, öffnen damit eine Datei, ermitteln dann mit FreeFile <\/b>die nächste freie Nummer, schließen die Datei wieder und geben erneut das Ergebnis von FreeFile <\/b>aus. Hier ist die Prozedur dazu:<\/p>\n Das Ergebnis sah so aus:<\/p>\n Ausführliche Beispiele für den Umgang mit Anweisungen wie Open, Close, Print et cetera beschreiben wir in einem eigenen Artikel namens VBA und Textdateien: Alles über Open, Close, Print und Co. <\/b>(www.vbentwickler.de\/454<\/b>).<\/p>\n Mit der folgenden Prozedur nutzen wir die Funktion GetAttr<\/b>, um den Zahlenwert auszugeben, der die Dateiattribute des angegebenen Pfades repräsentiert. Hier geben wir zunächst einmal eine Zeile im Direktbereich aus für jedes Attribut, das zutreffend ist.<\/p>\n Dazu vergleichen wir den jeweiligen Wert von lngAttribut über eine bitweise And<\/b>-Operation mit dem jeweiligen Zahlenwert und geben einen Text aus, wenn das jeweilige Attribut zutreffend ist:<\/p>\n Damit lässt sich dann beispielsweise herausfinden, ob ein Pfad eine Datei oder ein Verzeichnis ist. <\/p>\n Verzeichnisse erstellen wir mit der MkDir<\/b>-Anweisung. Diese erwartet den Pfad des zu erstellenden Verzeichnisses. Wichtig ist hier, dass immer nur eine Verzeichnisebene mit einem Aufruf gleichzeitig hinzugefügt werden kann. Wir können also ausgehend von c:\\ <\/b>nur das Verzeichnis c:\\Verzeichnis1 <\/b>erstellen, aber nicht direkt c:\\Verzeichnis1\\Verzeichnis2<\/b>.<\/p>\n Wenn wir ausgehend von c:\\ <\/b>das Verzeichnis c:\\Verzeichnis1\\Verzeichnis2 <\/b>erstellen wollen, müssen wir in zwei Schritten vorgehen:<\/p>\n Wenn wir direkt die zweite Anweisung aufrufen, ohne dass das Verzeichnis namens c:\\Verzeichnis1<\/b> existiert, erhalten wir die Fehlermeldung aus Bild 2.<\/p>\n Bild 2: Fehler beim Versuch, ein Verzeichnis zu erstellen<\/span><\/b><\/p>\n Nachfolgend stellen wir eine Funktion vor, mit der wir nur mit der MkDir<\/b>-Anweisung mehrere Verzeichnisse gleichzeitig erstellen können, in dem wir nur den zu erstellenden Pfad als Parameter übergeben.<\/p>\n Diese Funktion heißt VerzeichnisseErstellen<\/b> und sieht wie in Listing 1 aus.<\/p>\n Listing 1: Die Funktion VerzeichnisErstellen<\/span><\/b><\/p>\n Sie erwartet den Pfad des zu erstellenden Verzeichnisses (oder der Verzeichnisse) als Parameter.<\/p>\n Sie splittet zuerst den Pfad in ein Array auf, wobei das Backslash-Zeichen (\\<\/b>) als Trennzeichen verwendet wird. Wenn wir die Zeichenkette c:\\Verzeichnis1\\Verzeichnis2\\Verzeichnis3 <\/b>mit strPfad <\/b>übergeben, enthält das Array also die folgenden Elemente:<\/p>\n In einer For…Next<\/b>-Schleife über den kleinsten bis zum größten Indexwert des Arrays (in diesem Fall von 0 <\/b>bis 3<\/b>) prüfen wir, ob der Inhalt der Variablen strAktuellerPfad <\/b>die Länge 0 <\/b>aufweist.<\/p>\n In diesem Fall füllen wir strAktuellerPfad <\/b>mit dem ersten Element des Arrays, hier c:<\/b>.<\/p>\n In allen anderen Fällen, also für die Array-Elemente Verzeichnis1<\/b>, Verzeichnis2 <\/b>und Verzeichnis3<\/b>, wird der Else<\/b>-Teil der If…Then<\/b>-Bedingung ausgeführt.<\/p>\n Hier wird der aktuelle Wert des Arrays getrennt durch einen Backslash an den Inhalt von strAktuellerPfad <\/b>angehängt.<\/p>\n Im zweiten Durchlauf der Schleife bedeutet dies, das wir in strAktuellerPfad <\/b>den Wert c:\\Verzeichnis1 <\/b>erhalten. Dieses Verzeichnis wollen wir nun zunächst mit MkDir <\/b>anlegen.<\/p>\n Nun kann es sein, dass c:\\Verzeichnis1 <\/b>bereits existiert. Für diesen Fall deaktivieren wir die eingebaute Fehlerbehandlung zuvor mit On Error Resume Next<\/b>.<\/p>\n Das Verzeichnis wird nun also angelegt, falls noch nicht vorhanden, oder eben nicht.<\/p>\n Auf die gleiche Weise fügen wir anschließend noch die weiteren Einträge des Arrays als Unterverzeichnisse hinzu, bis wir schließlich das Verzeichnis c:\\Verzeichnis1\\Verzeichnis2\\Verzeichnis3 <\/b>erhalten.<\/p>\n Nach dem Durchlaufen aller Elemente prüfen wir schließlich noch, ob das Verzeichnis existiert. Dazu nutzen wir die Dir()<\/b>-Funktion, mit der wir prüfen, ob das mit strPfad <\/b>angegebene Verzeichnis vorhanden ist.<\/p>\n Man könnte meinen, dass eine Funktion namens Dir() <\/b>dem Auslesen von Verzeichnissen dient.<\/p>\n Tatsächlich kann sie aber die Namen von Dateien und Verzeichnissen ermitteln. Aber von welchen Dateien und Verzeichnissen überhaupt?<\/p>\n Schauen wir uns einen einfachen Aufruf von Dir() <\/b>ohne Parameter an – denn beide Parameter sind als optional gekennzeichnet. Dies liefert jedoch den Fehler aus Bild 3.<\/p>\n Bild 3: Fehler bei Versuch, Dir() ohne Parameter zu verwenden<\/span><\/b><\/p>\n Dir() <\/b>kann man zwar grundsätzlich ohne die Angabe von Parametern aufrufen, aber es muss zunächst initialisiert werden, indem man einen Wert für den ersten Parameter angibt.<\/p>\n Hier geben wir also nun beispielsweise c:\\<\/b> an:<\/p>\n Damit liefert Dir() <\/b>den Namen der ersten Datei des Verzeichnisses c:\\<\/b>. Das klappt auch für das aktuelle Datenbankverzeichnis, das wir mit CurrentProject.Path <\/b>ermitteln:<\/p>\n Um die Elemente eines Verzeichnisses zu erhalten, müssen wir immer ein abschließendes Backslash-Zeichen (\\<\/b>) anhängen. Ohne dieses liefert der Aufruf eine leere Zeichenkette. Es gibt ein Beispiel, in dem das sinnvoll ist – mehr dazu weiter unten.<\/p>\n Nun wissen wir, wie wir an die erste Datei eines Verzeichnisses gelangen. Wie aber kommen wir an die übrigen Dateien?<\/p>\n Hier kommt der Aufruf der Dir()<\/b>-Funktion ohne Parameter zum Zuge. Sobald wir Dir() <\/b>einmal mit einem Pfad aufgerufen haben, bleibt dieser Pfad intern für weitere Aufrufe gespeichert – bis man Dir() <\/b>mit einem anderen Pfad aufruft.<\/p>\n Wenn wir Dir() <\/b>mit Pfadangabe aufgerufen haben, erhalten wir die erste Datei dieses Verzeichnispfades zurück. Wenn wir die nächste Datei ermitteln wollen, rufen wir Dir() <\/b>einfach ohne Pfadangabe auf, also ohne Angabe des ersten Parameters.<\/p>\n Und wenn wir alle Dateien eines Verzeichnisses ausgeben wollen, verwenden wir die folgende Prozedur.<\/p>\n Diese ermittelt die erste Datei des Verzeichnisses, das wir mit CurrentProject.Path & “\\” <\/b>ermitteln, und schreibt diese in die Variable strDatei<\/b>.<\/p>\n Dann steigen wir in eine Do While<\/b>-Schleife ein, aber nur, wenn strDatei <\/b>nicht leer ist, also die Länge der enthaltenen Zeichenkette nicht 0 <\/b>ist.<\/p>\n Innerhalb der Schleife geben wir den aktuellen Wert von strDatei <\/b>aus und rufen Dir() <\/b>ohne Parameter auf, um den nächsten Dateinamen einzulesen. Dieser wird dann bei nächsten Schleifendurchlauf ausgegeben und so weiter – bis die Dir()<\/b>-Funktion keinen weiteren Dateinamen mehr findet und strDatei <\/b>leer bleibt:<\/p>\nÜbersicht über die Klasse FileSystem<\/h2>\n
\n
Arbeitsverzeichnis wechseln<\/h2>\n
Public Sub <\/span>Beispiel_ChDir()\r\n Debug.Print<\/span> \"Verzeichnis vorher: \" & CurDir\r\n ChDir CurrentProject.Path\r\n Debug.Print<\/span> \"Verzeichnis nachner: \" & CurDir\r\nEnd Sub<\/span><\/pre>\nPerformanceunterschied CurDir und CurDir$<\/h2>\n
Public Function <\/span>CurDirVariant()\r\n Dim <\/span>str As String<\/span>\r\n str = CurDir\r\nEnd Function<\/span>\r\nPublic Function <\/span>CurDirString()\r\n Dim <\/span>str As String<\/span>\r\n str = CurDir$\r\nEnd Function<\/span><\/pre>\nZugriffsmodus einer Datei ermitteln<\/h2>\n
Public Sub <\/span>Dateizugriffsmodus()\r\n Dim <\/span>intFileNum As Integer<\/span>\r\n Dim <\/span>intMode As Integer<\/span>\r\n Dim <\/span>strMode As String<\/span>\r\n \r\n intFileNum = FreeFile\r\n Open CurrentProject.Path & \"\\Test.txt\" _\r\n For Input As <\/span>#intFileNum\r\n intMode = FileAttr(intFileNum, 1)\r\n Select Case intMode\r\n Case <\/span>1\r\n strMode = \"Input (Lesemodus)\"\r\n Case <\/span>2\r\n strMode = \"Output (Schreibmodus)\"\r\n Case <\/span>4\r\n strMode = \"Random (Zufälliger Zugriff)\"\r\n Case <\/span>8\r\n strMode = \"Append (Anfügemodus)\"\r\n Case <\/span>32\r\n strMode = \"Binary (Binärmodus)\"\r\n End Select<\/span>\r\n Debug.Print<\/span> \"Datei ist im folgenden Modus geöffnet: \" _\r\n & strMode\r\n Close #intFileNum\r\nEnd Sub<\/span><\/pre>\nKopieren von Dateien<\/h2>\n
Public Sub <\/span>DateienKopieren()\r\n Dim <\/span>strQuelle As String<\/span>\r\n Dim <\/span>strZiel As String<\/span>\r\n strQuelle = CurrentProject.Path & \"\\Test.txt\"\r\n strZiel = CurrentProject.Path & \"\\Test_Kopie.txt\"\r\n FileCopy strQuelle, strZiel\r\nEnd Sub<\/span><\/pre>\nDatum und Zeit der letzten Änderung einer Datei ermitteln<\/h2>\n
Public Sub <\/span>Dateidatum()\r\n Dim <\/span>strPfad As String<\/span>\r\n strPfad = CurrentProject.Path & \"\\Test.txt\"\r\n Debug.Print<\/span> FileDateTime(strPfad)\r\nEnd Sub<\/span><\/pre>\n08.01.2025 19:53:24<\/pre>\n
Größe einer Datei ermitteln<\/h2>\n
Public Sub <\/span>Dateigroesse()\r\n Dim <\/span>strPfad As String<\/span>\r\n strPfad = CurrentProject.Path & \"\\Test.txt\"\r\n Debug.Print<\/span> FileLen<\/span>(strPfad)\r\nEnd Sub<\/span><\/pre>\nDateinummer zum Öffnen einer Datei ermitteln<\/h2>\n
Public Sub <\/span>Dateinummer()\r\n Dim <\/span>intFileNum As Integer<\/span>\r\n \r\n intFileNum = FreeFile\r\n Debug.Print<\/span> \"Aktuelle Dateinummer: \" & intFileNum\r\n \r\n Open CurrentProject.Path & \"\\Test.txt\" _\r\n For Input As <\/span>#intFileNum\r\n \r\n Debug.Print<\/span> \"Nächste Dateinummer: \" & FreeFile\r\n Close #intFileNum\r\n \r\n Debug.Print<\/span> \"Nächste Dateinummer nach dem Schließen: _\r\n \" & FreeFile\r\nEnd Sub<\/span><\/pre>\nAktuelle Dateinummer: 1\r\nNächste Dateinummer: 2\r\nNächste Dateinummer nach dem Schließen: 1<\/pre>\n
Alle Dateiattribute ausgeben<\/h2>\n
Public Sub <\/span>AlleDateiattribute()\r\n Dim <\/span>strPfad As String<\/span>\r\n Dim <\/span>lngAttribute As Long<\/span>\r\n strPfad = CurrentProject.Path & \"\\Test.txt\"\r\n lngAttribute = GetAttr(strPfad)\r\n If <\/span>lngAttribute = 0 Then<\/span>\r\n Debug.Print<\/span> \"vbNormal\"\r\n End If<\/span>\r\n If <\/span>(lngAttribute And 1) = 1 Then<\/span>\r\n Debug.Print<\/span> \"vbReadOnly\"\r\n End If<\/span>\r\n If <\/span>(lngAttribute And 2) = 2 Then<\/span>\r\n Debug.Print<\/span> \"vbHidden\"\r\n End If<\/span>\r\n If <\/span>(lngAttribute And 4) = 4 Then<\/span>\r\n Debug.Print<\/span> \"vbSystem\"\r\n End If<\/span>\r\n If <\/span>(lngAttribute And 16) = 16 Then<\/span>\r\n Debug.Print<\/span> \"vbDirectory\"\r\n End If<\/span>\r\n If <\/span>(lngAttribute And 32) = 32 Then<\/span>\r\n Debug.Print<\/span> \"vbArchive\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nErmitteln, ob ein Pfad eine Datei oder ein Verzeichnis ist<\/h2>\n
Public Function <\/span>IstDatei(strPfad As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>lngAttribute As Long<\/span>\r\n lngAttribute = GetAttr(strPfad)\r\n If lngAttribute And vbDirectory = _\r\n vbDirectory Then\r\n IstDatei = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nVerzeichnis erstellen mit MkDir<\/h2>\n
MkDir \"c:\\Verzeichnis1\"\r\nMkDir \"c:\\Verzeichnis1\\Verzeichnis2\"<\/pre>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2024_06\/pic_453_002.png\")
<\/p>\nMehrere Verzeichnisse gleichzeitig erstellen mit MkDir<\/h2>\n
Public Function <\/span>VerzeichnisErstellen(strPfad As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>strVerzeichnisse() As String<\/span>\r\n Dim <\/span>strAktuellerPfad As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n strVerzeichnisse = Split<\/span>(strPfad, \"\\\")\r\n For i = LBound<\/span>(strVerzeichnisse) To UBound<\/span>(strVerzeichnisse)\r\n If <\/span>Len<\/span>(strAktuellerPfad) = 0 Then<\/span>\r\n strAktuellerPfad = strVerzeichnisse(i)\r\n Else<\/span>\r\n strAktuellerPfad = strAktuellerPfad & \"\\\" & strVerzeichnisse(i)\r\n On Error Resume Next<\/span>\r\n MkDir strAktuellerPfad\r\n On Error GoTo<\/span> 0\r\n End If<\/span>\r\n Debug.Print<\/span> strVerzeichnisse(i), strAktuellerPfad\r\n Next<\/span> i\r\n If <\/span>Not<\/span> Len<\/span>(Dir(strPfad, vbDirectory)) = 0 Then<\/span>\r\n VerzeichnisErstellen = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Dir() liefert nicht nur Verzeichnisse<\/h2>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2024_06\/pic_453_003.png\")
<\/p>\n Dir(\"c:\\\")<\/pre>\n
Dir(CurrentProject.Path & \"\\\")\r\nDateimanagementMitVBABordmitteln.accdb<\/pre>\n
Alle Dateien eines Verzeichnisses durchlaufen<\/h2>\n