Wenn Sie das fertige Programm auf Ihrem Rechner ausführen, werden Sie feststellen, dass die folgenden Laufwerke berücksichtigt werden:

1. alle lokalen Laufwerke
2. alle Netzwerklaufwerke, die mit einem eigenen Laufwerksbuchstaben in die lokale Rechnerumgebung eingebunden sind.

Programmlösung: Laufwerke ermitteln

Damit Sie auf das Objekt "FileSystemObject" zugreifen können, müssen Sie zunächst eine Variable des entsprechenden Datentyps einrichten:

Dim fso As FileSystemObject

  
Im nächsten Schritt weisen Sie dieser Variablen (also "fso") eine neue Instanz des Datentyps "FileSystemObject" zu:

Set fso = New FileSystemObject

Anschließend können Sie über die Eigenschaften der Variablen "fso" auf die einzelnen Komponenten der Dateiumgebung zugreifen.

Wie das in der Praxis aussieht, demonstriert das folgende Beispielprogramm. Es ermittelt die verfügbaren Laufwerke und ihre Buchstabenbezeichnungen und gibt ein entsprechendes Informationsfenster aus.

Sub Laufwerke_anzeigen()
  Dim drv As Drive
  Dim fso As FileSystemObject
  Dim zf As String

  Set fso = New FileSystemObject
  zf = "Laufwerke:"
  For Each drv In fso.Drives
    zf = zf & vbNewLine & drv.DriveLetter
  Next drv
  MsgBox zf
End Sub 

Hier geht's zurück zu den Profi-Themen!

Hier geht's zu weiteren nützlichen VBA-Tipps!