Auslesen von Infos aller Laufwerke im System

Bsp-DB's Datei & System 05. August 2026 Zugriffe: 59

Problemstellung:

Für 32Bit und 64Bit Office Versionen

Auslesen von Laufwerks-Informationen mittels der Scripting Runtime von MS.
Es werden folgende Informationen ausgelesen:

Laufwerksbuchstabe
Laufwerkstyp
Dateisystem
Gesamtspeicherplatz
Freier Speicherplatz
Seriennummer des Laufwerks
Share Name bein Netz-LW
Volumenname

Voraussetzungen:
Das Bsp ist ab A07 lauffähig.

Funktionsweise:
Um mit der Scripting Runtime zu arbeiten ist es erstmal erforderlich diese per
Verweis in die DB einzubinden.
Der Modulkopf müsste entsprechend so aussehen:

Option Compare Database 
Option Explicit 
' Verweis auf das FileSystemObject erforderlich 
' MS-Scripting Runtime (scrrun.dll) 
Dim oFSO As New FileSystemObject

Um hier im Bsp die Laufwerksdaten einzulesen ist die Tabelle "tbl_LW" erforderlich.

Erforderliche Felder usw. s. Bsp-Datei.

Die Funktion "Read_LW" füllt die Tabelle "tbl_LW". Listing s. Bsp-DB

In der Bsp-Datei wird dann ein Listenfeld mit den Informationen gefüllt.

Downloads: