Visual Basic > Code Snippets

Display all drives

Display all drives

'display all drives on system 
'place a combo box on the form

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

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

End Sub