'display all drives on system

'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