Description

display all drives on system

Author

Programmershelp

Code

'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

Information

tested using Visual Basic 6 , Windows XP

Download

alldrives.txt