by TYPHOON22 (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Tue 5th December 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This sub sees if there is a drive connected to a drive letter. Uses no .dll's or .ocx's please email if you can improve the code
VBcoders
'if you need any other code like this contact me
Private Sub checkdrive()
drivenum = 0
While drivenum < 27
drivenum = drivenum + 1
If drivenum = 1 Then
On Error Resume Next
ChDrive "a:"
lstdrive.AddItem "not connected"
If Not Err.Number = 68 Then
lstdrive.AddItem "a:"
lstdriveto.AddItem "a:"
End If
End If
If drivenum = 2 Then
On Error Resume Next
ChDrive "b:"
lstdrive.AddItem "not connected"
If Not Err.Number = 68 Then
lstdrive.AddItem "b:"
lstdriveto.AddItem "b:"
End If
End If
If drivenum = 3 Then
On Error Resume Next
ChDrive "c:"
lstdrive.AddItem "not connected"
If Not Err.Number = 68 Then
lstdrive.AddItem "c:"
lstdriveto.AddItem "c:"
End If
End If
If drivenum = 4 Then
On Error Resume Next
ChDrive "d:"
lstdrive.AddItem "not connected"
If Not Err.Number = 68 Then
lstdrive.AddItem "d:"
lstdriveto.AddItem "d:"
End If
End If
If drivenum = 5 Then
On Error Resume Next
ChDrive "e:"
lstdrive.AddItem "not connected"
If Not Err.Number = 68 Then
lstdrive.AddItem "e:"
lstdriveto.AddItem "e:"
End If
End If
If drivenum = 6 Then
On Error Resume Next
ChDrive "f:"
If Not Err.Number = 68 Then
lstdrive.AddItem "f:"
lstdriveto.AddItem "f:"
End If
End If
If drivenum = 7 Then
On Error Resume Next
ChDrive "g:"
If Not Err.Number = 68 Then
lstdrive.AddItem "g:"
lstdriveto.AddItem "g:"
End If
End If
If drivenum = 8 Then
On Error Resume Next
ChDrive "h:"
If Not Err.Number = 68 Then
lstdrive.AddItem "h:"
lstdriveto.AddItem "h:"
End If
End If
If drivenum = 9 Then
On Error Resume Next
ChDrive "i:"
If Not Err.Number = 68 Then
lstdrive.AddItem "i:"
lstdriveto.AddItem "i:"
End If
End If
If drivenum = 10 Then
On Error Resume Next
ChDrive "j:"
If Not Err.Number = 68 Then
lstdrive.AddItem "j:"
lstdriveto.AddItem "j:"
End If
End If
If drivenum = 11 Then
On Error Resume Next
ChDrive "k:"
If Not Err.Number = 68 Then
lstdrive.AddItem "k:"
lstdriveto.AddItem "k:"
End If
End If
If drivenum = 12 Then
On Error Resume Next
ChDrive "l:"
If Not Err.Number = 68 Then
lstdrive.AddItem "l:"
lstdriveto.AddItem "l:"
End If
End If
If drivenum = 13 Then
On Error Resume Next
ChDrive "m:"
If Not Err.Number = 68 Then
lstdrive.AddItem "m:"
lstdriveto.AddItem "m:"
End If
End If
If drivenum = 14 Then
On Error Resume Next
ChDrive "n:"
If Not Err.Number = 68 Then
lstdrive.AddItem "n:"
lstdriveto.AddItem "n:"
End If
End If
If drivenum = 15 Then
On Error Resume Next
ChDrive "o:"
If Not Err.Number = 68 Then
lstdrive.AddItem "o:"
lstdriveto.AddItem "o:"
End If
End If
If drivenum = 16 Then
On Error Resume Next
ChDrive "p:"
If Not Err.Number = 68 Then
lstdrive.AddItem "p:"
lstdriveto.AddItem "p:"
End If
End If
If drivenum = 17 Then
On Error Resume Next
ChDrive "q:"
If Not Err.Number = 68 Then
lstdrive.AddItem "q:"
lstdriveto.AddItem "q:"
End If
End If
If drivenum = 18 Then
On Error Resume Next
ChDrive "r:"
If Not Err.Number = 68 Then
lstdrive.AddItem "r:"
lstdriveto.AddItem "r:"
End If
End If
If drivenum = 19 Then
On Error Resume Next
ChDrive "s:"
If Not Err.Number = 68 Then
lstdrive.AddItem "s:"
lstdriveto.AddItem "s:"
End If
End If
If drivenum = 20 Then
On Error Resume Next
ChDrive "t:"
If Not Err.Number = 68 Then
lstdrive.AddItem "t:"
lstdriveto.AddItem "t:"
End If
End If
If drivenum = 21 Then
On Error Resume Next
ChDrive "u:"
If Not Err.Number = 68 Then
lstdrive.AddItem "u:"
lstdriveto.AddItem "u:"
End If
End If
If drivenum = 22 Then
On Error Resume Next
ChDrive "v:"
If Not Err.Number = 68 Then
lstdrive.AddItem "v:"
lstdriveto.AddItem "v:"
End If
End If
If drivenum = 23 Then
On Error Resume Next
ChDrive "w:"
If Not Err.Number = 68 Then
lstdrive.AddItem "w:"
lstdriveto.AddItem "w:"
End If
End If
If drivenum = 24 Then
On Error Resume Next
ChDrive "x:"
If Not Err.Number = 68 Then
lstdrive.AddItem "x:"
lstdriveto.AddItem "x:"
End If
End If
If drivenum = 25 Then
On Error Resume Next
ChDrive "y:"
If Not Err.Number = 68 Then
lstdrive.AddItem "y:"
lstdriveto.AddItem "y:"
End If
End If
If drivenum = 26 Then
On Error Resume Next
ChDrive "z:"
If Not Err.Number = 68 Then
lstdrive.AddItem "z:"
lstdriveto.AddItem "z:"
End If
End If
Wend
End Sub
No comments have been posted about This sub sees if there is a drive connected to a drive letter. Uses no .dll's or .ocx's please emai. Why not be the first to post a comment about This sub sees if there is a drive connected to a drive letter. Uses no .dll's or .ocx's please emai.
