Dim These_Drives, i
Dim Drives_Object
Dim Number_of_Drives
Dim Drives_array
Dim Drive_exists

Set Drives_Object=CreateObject("Scripting.FileSystemObject")

Set These_Drives=Drives_Object.Drives

Drive_exists=Drives_Object.DriveExists("Z:")

MsgBox(Drive_exists)

'Set Drives_array=These_Drives.Item("C:")
'The above method works but the one below won't
' because these drives are indexed by key, which I won't know 
'beforehand
'
'MsgBox(Drives.Items(1))
'
'For i=0 To Drives.Count

'	MsgBox(Drives.Items(i))
'Next