Posted on January 4, 2009
1
2
3
4
5
6
| 'File/Folder Handling - How to get the list of all the ready drives in the system and their capacities
Dim fso As New Scripting.FileSystemObject, dr As Scripting.Drive
On Error Resume Next ' Needed for not-ready drives
For Each dr In fso.Drives
Debug.Print dr.DriveLetter & " [" & dr.TotalSize & "]"
Next |