Public Sub <\/span>FSOLateBinding()\r\n Dim <\/span>objFSO As Object<\/span>\r\n Set<\/span> objFSO = _\r\n CreateObject(\"Scripting.FileSystemObject\")\r\n With<\/span> objFSO\r\n Debug.Print<\/span> .FolderExists(\"c:\")\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nHier deklarieren wir die Objektvariable mit dem Datentyp Object<\/b>. Das hat den Nachteil, dass wir nicht per IntelliSense auf die Elemente dieser Klasse zugreifen können. In diesem Beispiel nutzen wir die FolderExists<\/b>-Funktion, um zu prüfen, ob das Verzeichnis c: <\/b>vorhanden ist.<\/p>\n
Wenn Sie lieber mit IntelliSense arbeiten, was beim Programmieren wesentlich komfortabler ist, fügen Sie einen Verweis auf die Bibliothek Microsoft Scripting Runtime <\/b>hinzu. Dazu öffnen Sie den VBA-Editor, etwa mit der Tastenkombination Alt + F11<\/b>, und aktivieren dann mit dem Menübefehl Extras|Verweise <\/b>die Anzeige des Verweise<\/b>-Dialogs für das aktuelle VBA-Projekt. Hier wählen Sie den Eintrag Microsoft Scripting Runtime <\/b>aus und aktivieren diesen (siehe Bild 1).<\/p>\n
![\"Verweis](\"..\/tl_files\/images\/pic_438_001.png\")
<\/a><\/p>\nBild 1: Verweis auf die Bibliothek Microsoft Scripting Runtime<\/p>\n
Danach können Sie die Objektvariable für die Klasse FileSystemObject <\/b>auch mit diesem Datentyp deklarieren:<\/p>\nPublic Sub <\/span>FSOEarlyBinding()\r\n Dim <\/span>objFSO As <\/span>FileSystemObject\r\n Set<\/span> objFSO = New<\/span> FileSystemObject\r\n With<\/span> objFSO\r\n Debug.Print<\/span> .FolderExists(\"c:\")\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nEin weiterer Unterschied ist, dass Sie nun die Methoden der Klasse per IntelliSense anzeigen können (siehe Bild 2). Alternativ können Sie sich natürlich auch über den Objektkatalog einen überblick über die Methoden und Eigenschaften des Objekts einer Bibliothek verschaffen. Den Objektkatalog blenden Sie mit der Tastenkombination F2 <\/b>ein. Um die Elemente der gewünschten Bibliothek zu betrachten, wählen Sie diese oben im Kombinationsfeld aus. Dann können Sie unten die entsprechende Klasse anklicken und finden alle Element im rechten Listenfeld vor (siehe Bild 3).<\/p>\n
![\"FileSystemObject](\"..\/tl_files\/images\/pic_438_002.png\")
<\/a><\/p>\nBild 2: FileSystemObject mit IntelliSense nutzen<\/p>\n
![\"Per](\"..\/tl_files\/images\/pic_438_003.png\")
<\/a><\/p>\nBild 3: Per Objektkatalog in den Methoden einer Klasse stöbern<\/p>\n
Elemente der FileSystemObject-Klasse<\/h2>\n
Die Klasse, die wir uns in diesem Artikel ansehen, hat die folgenden Elemente:<\/p>\n
\n- BuildPath<\/b>: Stellt Verzeichnisnamen zusammen auf Basis eines Verzeichnisnamens und des Namens für das Unterverzeichnis. Das Backslash-Zeichen (\\) wird dabei automatisch eingefügt.<\/li>\n
- CopyFile<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- CopyFolder<\/b>: Kopiert das im ersten Parameter per Pfad angegebene Verzeichnis in das im zweiten Parameter angegebene Verzeichnis.<\/li>\n
- CreateFolder<\/b>: Erstellt das als Parameter angegebene Verzeichnis.<\/li>\n
- CreateTextFile<\/b>: siehe Das FileSystemObject: TextStream<\/b><\/li>\n
- DeleteFile<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- DeleteFolder<\/b>: Löscht den Ordner mit dem angegebenen Pfad.<\/li>\n
- DriveExists<\/b>: Prüft, ob ein Laufwerk vorhanden ist.<\/li>\n
- Drives<\/b>: Liefert eine Auflistung aller Laufwerke.<\/li>\n
- FileExists<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- FolderExists<\/b>: Prüft, ob das Verzeichnis mit dem als Parameter angegebenen Namen existiert.<\/li>\n
- GetAbsolutePathName<\/b>: Ermittelt den Pfad ohne abschließenden Backslash.<\/li>\n
- GetBasePathName<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- GetDrive<\/b>: Ermittelt das Drive-Objekt zu einem Laufwerksbuchstaben.<\/li>\n
- GetDriveName<\/b>: Ermittelt den Laufwerksbuchstaben eines Pfades.<\/li>\n
- GetExtensionName<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- GetFile<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- GetFileName<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- GetFileVersion<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- GetFolder<\/b>: Referenziert das als Parameter angegebene Verzeichnis.<\/li>\n
- GetParentFolderName<\/b>:<\/li>\n
- GetSpecialFolder<\/b>: Ermittelt spezielle Verzeichnisse wie etwa das Windows<\/b>-Verzeichnis.<\/li>\n
- GetStandardStream<\/b>: siehe Das FileSystemObject: TextStream<\/b><\/li>\n
- GetTempName<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- MoveFile<\/b>: siehe Das FileSystemObject: Dateien<\/b><\/li>\n
- MoveFolder<\/b>: Verschiebt das als ersten Parameter angegebene Verzeichnis und fügt es als das mit dem zweiten Parameter angegebene Verzeichnis wieder ein.<\/li>\n
- OpenTextFile<\/b>: siehe Das FileSystemObject: TextStream<\/b><\/li>\n<\/ul>\n
Mit Laufwerken arbeiten<\/h2>\n
Wir beginnen mit der obersten Ebene im Dateisystem – den Laufwerken. Dazu nutzen wir gleich das einzige Element der Klasse FileSystemObject<\/b>, das keine Funktion oder Methode ist, nämlich die Auflistung Drives<\/b>. Die folgende Prozedur ermittelt die Anzahl der Laufwerke und gibt diese im Direktbereich aus. Danach durchlaufen wir die Laufwerke in einer For Each<\/b>-Schleife, wobei wir das aktuelle Laufwerk jeweils der Variablen objDrive <\/b>mit dem Datentyp Drive <\/b>zuweisen. Dieses liefert einige Eigenschaften zum jeweiligen Laufwerk, von denen wir hier beispielhaft den Laufwerkbuchstaben, den Typ, die Bezeichnung des Filesystems und den verfügbaren Speicherplatz im Direktbereich ausgeben:<\/p>\nPublic Sub <\/span>Laufwerke()\r\n Dim <\/span>objFSO As <\/span>FileSystemObject\r\n Dim <\/span>objDrive As <\/span>Scripting.Drive\r\n Set<\/span> objFSO = New<\/span> FileSystemObject\r\n Debug.Print<\/span> objFSO.Drives.Count\r\n For Each objDrive In objFSO.Drives\r\n With<\/span> objDrive\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span> .DriveLetter,\r\n Debug.Print<\/span> .DriveType,\r\n Debug.Print<\/span> .FileSystem,\r\n If <\/span>Err.Number = 71 Then<\/span>\r\n Debug.Print<\/span> \"Nicht bereit.\",\r\n End If<\/span>\r\n Err.Clear\r\n Debug.Print<\/span> .FreeSpace\r\n If <\/span>Err.Number = 71 Then<\/span>\r\n Debug.Print<\/span> \"Nicht bereit.\"\r\n End If<\/span>\r\n End With<\/span>\r\n Next<\/span> objDrive\r\nEnd Sub<\/span><\/pre>\nIm Falle der beiden Eigenschaften FileSystem <\/b>und FreeSpace <\/b>tritt ein Fehler auf, wenn das jeweilige Laufwerk nicht bereit ist. Das ist etwa der Fall, wenn wir ein DVD-Laufwerk untersuchen, das aktuell keine DVD enthält. Diesen Fehler fangen wir ab und geben stattdessen den Text Nicht bereit. <\/b>aus. Wir könnten auch in einer If…Then<\/b>-Bedingung prüfen, ob die Eigenschaft IsReady<\/b> den Wert True <\/b>zurückgibt. Dann würden wir uns die Fehlerbehandlung sparen:<\/p>\nWith<\/span> objDrive\r\n Debug.Print<\/span> .DriveLetter,\r\n Debug.Print<\/span> .DriveType,\r\n If <\/span>.IsReady Then<\/span>\r\n Debug.Print<\/span> .FileSystem,\r\n Debug.Print<\/span> .FreeSpace,\r\n Debug.Print<\/span> .VolumeName,\r\n Else<\/span>\r\n Debug.Print<\/span> \"Nicht bereit.\",\r\n Debug.Print<\/span> \"Nicht bereit.\",\r\n Debug.Print<\/span> \"Nicht bereit.\",\r\n End If<\/span>\r\n Debug.Print<\/span> .ShareName\r\nEnd With<\/span><\/pre>\nDas Ergebnis sieht etwa wie in Bild 4 aus. Die ersten beiden Laufwerke sind Festplatten mit dem Format NTSF<\/b>, das dritte ein DVD-Laufwerk und das vierte ein USB-Stick, der im Format exFAT <\/b>formatiert ist. Die Zahlenwerte für die Eigenschaft DriveType <\/b>bedeuten CDRom <\/b>(4<\/b>), Fixed <\/b>(2<\/b>), RamDisk (5<\/b>), Remove <\/b>(3<\/b>), Removable <\/b>(1<\/b>) und UnknownType <\/b>(0<\/b>). Die Drive<\/b>-Klasse bietet die folgenden Eigenschaften:<\/p>\n
![\"Ausgabe](\"..\/tl_files\/images\/pic_438_004.png\")
<\/a><\/p>\nBild 4: Ausgabe einiger Laufwerk-Eigenschaften<\/p>\n
\n- AvailableSpace<\/b>: Verfügbarer Speicherplatz<\/li>\n
- DriveLetter<\/b>: Großbuchstabe für das Laufwerk (zum Beispiel C <\/b>oder D<\/b>)<\/li>\n
- DriveType<\/b>: Typ des Laufwerks<\/li>\n
- FileSystem<\/b>: Bezeichnung des Dateisystems<\/li>\n
- FreeSpace<\/b>: Verfügbarer Speicherplatz<\/li>\n
- IsReady<\/b>: Gibt an, ob das Laufwerk bereit ist<\/li>\n
- Path<\/b>: Großbuchstabe für das Laufwerk plus Doppelpunkt, also etwa C:<\/b> oder D:<\/b><\/li>\n
- RootFolder<\/b>: Liefert ein Folder<\/b>-Objekt, welches das Basisverzeichnis repräsentiert, also etwa C:\\<\/b>. Damit können Sie weitere Optionen ausführen wie etwa die Unterverzeichnisse ermitteln.<\/li>\n
- SerialNumber<\/b>: Serielle Nummer des Laufwerks.<\/li>\n
- ShareName<\/b>: Netzwerkfreigabename des Laufwerks<\/li>\n
- TotalSize<\/b>: Gesamter Speicherplatz<\/li>\n
- VolumeName<\/b>: Benutzerdefinierter Name des Laufwerks<\/li>\n<\/ul>\n
Zur Vereinfachung: FileSystemObject als Property<\/h2>\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