Display all drives on system

This example will display all of the available drives on a system. This example requires you to put a combo box on a form.

'place a combo box on the form

Private Sub Form_Load()
Dim objfso As Scripting.FileSystemObject
Dim drives As drives, drive As drive

Set objfso = CreateObject("Scripting.FileSystemObject")
Set drives = objfso.drives
For Each drive In drives
Combo1.AddItem drive.DriveLetter
Next

End Sub