VBScript Drives Collection

Read-only collection of all available drives.

None

Removable-media drives need not have media inserted for them to appear in the Drives collection.

On UNIX systems the drives collection will contain only one member, the "/" drive.

The following code illustrates how to get the Drives collection and iterate the collection using the For Each...Next statement:

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

Response.Write s

End Sub