Drives property
Returns a Drives collection consisting of all Drive objects available on the local machine.
Syntax
object.Drives
The object is always a FileSystemObject.
Remarks
Removable-media drives need not have media inserted for them to appear in the Drives collection.
You can iterate the members of the Drives collection by using a For Each...Next construct as illustrated in the following code.
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 = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.