Listing Drive Letters on Current Computer 1

[alexbel]

Hi,

Is there a code I could use that would list all of the drive letters that are available on the current computer?

Thank you

 

[PHV]

A starting point:
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
n = ""
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox "Available drives list:" & vbCrLf & s

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[alexbel]

Thank you!

Worked great!