Freigeben über


Drives-Auflistung

Schreibgeschützte Auflistung aller verfügbaren Laufwerke.

Hinweise

In Laufwerke für Wechseldatenträger müssen keine Datenträger eingelegt sein, damit diese in der Drives-Auflistung aufgeführt werden.

Der folgende Code veranschaulicht, wie Sie die Drives-Auflistung abrufen und die Auflistung mithilfe von For Each... durchlaufen. Nächste Anweisung:

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.