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(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
This little code, checks for free diskdrive's and add them to a combobox Comments
No comments yet — be the first to post one!
Post a Comment