Visual Basic Programming Code Examples
Visual Basic > Code Snippets Code Examples
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
