Die VBA-eigenen Befehle wie Dir<\/b>, MkDir<\/b>, Kill<\/b>, Copy <\/b>und so weiter erlauben grundlegende Dateioperationen. Wenn es etwas komfortabler sein darf, gibt es jedoch noch andere Möglichkeiten. Eine davon ist die Klasse FileSystemObject<\/b>, die Sie in der Bibliothek Microsoft Scripting Runtime <\/b>finden. Im Artikel Das FileSystemObject: Verzeichnisse <\/b>haben wir die Grundlagen zu dieser Bibliothek und zum Umgang mit Laufwerken und Verzeichnissen erläutert. Dieser Artikel zeigt, welche Möglichkeiten diese Bibliothek im Hinblick auf den Umgang mit Dateien bietet.<\/p>\nBeispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1902_FileSystemObject_Files.accdb<\/b>.<\/p>\n
Der oben genannte Artikel hat die Grundlagen zum FileSystemObject <\/b>und zu den Auflistungen Drives <\/b>und Folders <\/b>sowie den Klassen Drive <\/b>und Folder <\/b>erläutert. Nun gehen wir einen Schritt weiter und schauen uns an, wie wir mit den in den Verzeichnissen enthaltenen Dateien arbeiten können. Diese referenzieren wir über die Files<\/b>-Auflistung beziehungsweise im Falle einer einzelnen Datei über die File<\/b>-Klasse.<\/p>\nSchneller Zugriff auf ein FileSystemObject-Objekt<\/h2>\n
Wie schon im Artikel Das FileSystemObject: Verzeichnisse <\/b>beschrieben, verwenden wir die folgende private Variable und die öffentliche Property Get<\/b>-Prozedur, um schnell Zugriff auf eine Instanz der FileSystemObject<\/b>-Klasse zu erhalten:<\/p>\n Sie können dann einfach über den Ausdruck FSO <\/b>auf das FileSystemObject <\/b>zugreifen – also etwa so:<\/p>\n Wenn wir Dateien auflisten wollen, benötigen wir zunächst ein Folder<\/b>-Objekte, also ein Verzeichnis, in dem die zu untersuchenden Dateien enthalten sind. Wir beschäftigen uns mit dem Verzeichnis der aktuellen Datenbank, das wir mit dem VBA-Befehl CurrentProject.Path <\/b>auslesen. Das dazugehörige Folder<\/b>-Objekte erhalten wir mit der GetFolder<\/b>-Methode:<\/p>\n In der Prozedur ermitteln wir das Folder<\/b>-Objekt und durchlaufen alle in der Files<\/b>-Auflistung dieses Verzeichnisses enthaltenen File<\/b>-Objekte. Wir geben zu jedem File<\/b>-Objekt den Namen aus der Eigenschaft Name <\/b>im Direktbereich aus. Auf die gleiche Weise können wir die folgenden Informationen des File<\/b>-Objekts ausgeben lassen:<\/p>\n Wenn Sie all diese Informationen für die Dateien aus der obigen Prozedur ausgeben wollen, erweitern Sie den Inhalt der For Each<\/b>-Schleife wie folgt:<\/p>\n Für die Eigenschaft Type <\/b>erhalten wir Texte wie etwa Microsoft Access Database<\/b>, LACCDB-Datei <\/b>oder Snagit Editor Image<\/b>. Teilweise werden hier Typen ausgeben, die mit der standardmäßig zu öffnenden Anwendung zusammenhängen, teilweise nur die Dateiendung.<\/p>\n Es gibt zwei Eigenschaften, die Verweise auf Objekte zurückliefern:<\/p>\n Das File<\/b>-Objekt enthält neben den bereits erwähnten Eigenschften noch die folgenden Methoden und Funktionen:<\/p>\n Und auch die FileSystemObject<\/b>-Klasse stellt noch Eigenschaften, Methoden und Funktionen bereit, die Sie in Zusammenhang mit File<\/b>-Objekten verwenden können:<\/p>\n Und schließlich finden wir auch in der Folder<\/b>-Klasse noch Methoden und Auflistungen für den Umgang mit File<\/b>-Objekten. Die Files<\/b>-Auflistung haben wir ja bereits weiter oben beschrieben:<\/p>\n Eine erste Möglichkeit, wie Sie Dateien als File<\/b>-Objekte referenzieren können, haben Sie ja bereits weiter oben kennengelernt – nämlich über die Auflistung Files <\/b>eines Folder<\/b>-Objekts.<\/p>\n Sie können aber auch auf ein File<\/b>-Objekt zugreifen, wenn Sie nur seinen Pfad kennen. Dazu verwenden Sie die GetFile<\/b>-Methode der FileSystemObjekt<\/b>-Klasse:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private <\/span>m_FSO As <\/span>FileSystemObject\r\nPublic Property Get <\/span>FSO() As <\/span>FileSystemObject\r\n If <\/span>m_FSO Is Nothing Then<\/span>\r\n Set<\/span> m_FSO = New<\/span> FileSystemObject\r\n End If<\/span>\r\n Set<\/span> FSO = m_FSO\r\nEnd Property<\/span><\/pre>\nDebug.Print<\/span> FSO.Drives.Count<\/pre>\nDateien auflisten<\/h2>\n
Public Sub <\/span>DateienAuflisten()\r\n Dim <\/span>objFile As <\/span>File\r\n Dim <\/span>objFolder As <\/span>Folder\r\n Set<\/span> objFolder = FSO.GetFolder(CurrentProject.Path)\r\n For Each objFile In objFolder.Files\r\n Debug.Print<\/span> objFile.Name\r\n Next<\/span> objFile\r\nEnd Sub<\/span><\/pre>\n\n
With<\/span> objFile\r\n Debug.Print<\/span> .Name, .Attributes, .DateCreated, .DateLastAccessed, .DateLastModified, .Path, .ShortName, .ShortPath, .Type\r\nEnd With<\/span><\/pre>\nEigenschaften mit Objekten<\/h2>\n
\n
Methoden und Funktionen des File-Objekts<\/h2>\n
\n
Elemente der FileSystemObject-Klasse für den Umgang mit File-Objekten<\/h2>\n
\n
Elemente der Folder-Klasse für den Umgang mit File-Objekten<\/h2>\n
\n
Dateien als File-Objekte referenzieren<\/h2>\n
Public Sub <\/span>DateiReferenzieren()\r\n Dim <\/span>objFile As <\/span>File\r\n Dim <\/span>strPfad As String<\/span>\r\n strPfad = FSO.BuildPath(CurrentProject.Path, \"pic001.png\")\r\n Set<\/span> objFile = FSO.GetFile(strPfad)\r\n Debug.Print<\/span> objFile.Path\r\nEnd Sub<\/span><\/pre>\n
\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