Open \"Test.txt\" For Input As <\/span>#1<\/pre>\nAktuelles Verzeichnis ermitteln<\/h2>\n
Und woher bezieht VBA den Ort der betroffenen Datei Dieser wird intern gespeichert und kann über die Funktion CurDir <\/b>ausgelesen werden. Ein Aufruf im Direktfenster des VBA-Editors sieht beispielsweise wie folgt aus:<\/p>\nDebug.Print<\/span> CurDir\r\nC:\\Users\\Andre\\Documents<\/pre>\nDas bedeutet, dass die Open<\/b>-Anweisung dem Dateinamen ohne Angabe eines Verzeichnisses die intern gespeicherte und mit CurDir <\/b>zu ermittelnde Pfadbezeichnung voranstellt.<\/p>\nAktuelles Verzeichnis ändern<\/h2>\n
Wenn sich die Dateioperationen innerhalb einer Anwendung immer auf das gleiche Verzeichnis beziehen, ist es sinnvoll, dieses Verzeichnis an die eigenen Bedürfnisse anzupassen. Da trifft es sich gut, dass VBA mit ChDir <\/b>auch eine Funktion zum Festlegen eines neuen aktuellen Verzeichnisses liefert. Sie können den Wert von CurDir <\/b>beispielsweise auf den Pfad zur aktuell geöffneten Datenbank einstellen:<\/p>\nChDir Currentproject.Path<\/pre>\nDie anschließende Prüfung liefert das erwartete Ergebnis:<\/p>\n
Debug.Print<\/span> CurDir\r\nC:\\Daten\\Fachartikel\\AiUBasic\\Basics\\2012\\06\\Dateibefehle<\/pre>\nCurDir <\/b>liefert für jedes Laufwerk ein eigenes aktuelles Verzeichnis. Um das aktuelle Verzeichnis eines anderen Laufwerks als c:\\ <\/b>zu ermitteln, geben Sie den Laufwerksbuchstaben in Anführungszeichen als Parameter der CurDir<\/b>-Funktion an:<\/p>\nDebug.Print<\/span> CurDir(\"h\")\r\nh:\\Daten<\/pre>\nWenn Sie das aktuelle Verzeichnis für ein bestimmtes Laufwerk ändern möchten, geben Sie einfach den kompletten Pfad samt Laufwerksbuchstaben an:<\/p>\n
ChDir(\"h:\\Daten\\Accessprojekte\")<\/pre>\nWie die folgende Prüfung ergibt, funktioniert es:<\/p>\n
Debug.Print<\/span> CurDir(\"h\")\r\nh:\\Daten\\Accessprojekte<\/pre>\nCurDir <\/b>liefert ohne Parameter standardmäßig das aktuelle Verzeichnis des Laufwerks c:\\<\/b>. Wenn Sie möchten, dass CurDir <\/b>ohne Parameter das aktuelle Verzeichnis eines anderen Laufwerks liefert, stellen Sie das Standardlaufwerk entsprechend mit der Funktion ChDrive <\/b>ein:<\/p>\nChDrive \"h\"<\/pre>\nCurDir <\/b>liefert dann Folgendes:<\/p>\nDebug.Print<\/span> CurDir\r\nh:\\Daten\\Accessprojekte<\/pre>\nDateien löschen<\/h2>\n
Während die im Artikel Textdateien <\/b>vorgestellte Open<\/b>-Anweisung nicht nur zum öffnen, sondern auch zum Anlegen von Textdateien genutzt werden kann, fehlt noch ein Pendant zum Löschen von Dateien – in diesem Fall nicht nur von Textdateien. Diese Methode heißt Kill<\/b>. Diese Methode erwartet lediglich den Dateinamen als Parameter:<\/p>\nKill CurrentProject.Path & \"\\test.txt\"<\/pre>\nWenn Sie keinen Pfad angeben, verwendet auch die Kill<\/b>-Methode das mit CurDir <\/b>ermittelte Verzeichnis. <\/p>\nVerzeichnis erstellen<\/h2>\n
Neue Verzeichnisse erstellen Sie mit der Methode MkDir<\/b>. Wenn Sie MkDir <\/b>nur den Namen des zu erstellenden Verzeichnisses übergeben, also etwa wie im folgenden Aufruf, erzeugt VBA – Sie ahnen es bereits – das neue Verzeichnis im mit CurDir <\/b>zu ermittelnden aktuellen Verzeichnis:<\/p>\nMkDir \"Test\"<\/pre>\nObiger Aufruf würde also das Verzeichnis c:\\Daten\\Test <\/b>erzeugen, wenn CurDir <\/b>das Verzeichnis c:\\Daten <\/b>liefert. Dabei können übrigens kaum Fehler auftreten – im Gegensatz zur Variante mit Angabe des Verzeichnisses. Wenn Sie beispielsweise zwei verschachtelte Unterverzeichnisse namens Test1 <\/b>und Test2 <\/b>unter c:\\Daten <\/b>erzeugen möchten, gelingt dies nicht in einem einzigen Schritt – Sie erhalten dann nämlich den Fehler aus Bild 1.<\/p>\n
![\"Fehler](\"..\/tl_files\/images\/pic_156_001.png\")
<\/a><\/p>\nBild 1: Fehler beim Versuch, zwei Verzeichnisse auf einmal zu erstellen<\/p>\n
Stattdessen erledigen Sie diese Aufgabe in zwei Schritten:<\/p>\n
MkDir \"c:\\Daten\\Test1\"\r\nMkDir \"c:\\Daten\\Test1\\Test2\"<\/pre>\nLöschen von Verzeichnissen<\/h2>\n
Das Löschen eines Verzeichnisses erledigen Sie mit der RmDir<\/b>-Methode. Auch diese erlaubt nur das Löschen eines Verzeichnisses gleichzeitig, genau genommen sogar nur das Löschen leerer Verzeichnisse.<\/p>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t