• Home
 · 
• Files/File Controls/Input/Output
 · 
• This little code, checks for free diskdrive's and add them to a combobox

This little code, checks for free diskdrive's and add them to a combobox

This little code, checks for free diskdrive's and add them to a combobox

Rate This little code, checks for free diskdrive's and add them to a combobox

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Form_Load()

	Call FreeDrive

End Sub


Private Sub FreeDrive()
On Error GoTo errHandler

Dim intDriveLetter As Integer
Dim strFreeDrive As String
Dim intCounter As Integer
Dim intFocus As Integer

intDriveLetter = 67 'Start with Drive C:

    Do Until intDriveLetter = 92
        ChDir Chr(intDriveLetter) & ":"
        strFreeDrive = Chr(intDriveLetter) & ":"
        intDriveLetter = intDriveLetter + 1
    Loop

cmbFreeDrive.ListIndex = intCounter - 1

errHandler:
    Select Case Err.Number
        Case 75
            Resume Next
        Case 76
            cmbFreeDrive.AddItem strFreeDrive
            intCounter = intCounter + 1
            Resume Next
        Case Else
    End Select
End Sub