'using the FileSystemObject (create a project reference to 'Microsoft Scripting Runtime'
Dim f As New FileSystemObject, x As Drive, i As Long
Redim Letters(f.Drives.Count - 1)
For Each x In f.Drives
Letters(i) = x.DriveLetter
Next x
