DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

All Drive

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Feb 2008

Posts: 25

Reputation: Neji is an unknown quantity at this point

Solved Threads: 1

Neji

Offline

Light Poster

All Drive

Apr 6th, 2008

how i can get all drive in my computer?
does anyone know how to get it??

Thanks.

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: All Drive

Apr 6th, 2008

yes, here it is the code, try it and let me know if it worked :

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
Dim AllDir
Private Sub Form_Load()
On Error Resume Next
For i = 65 To 90
x = Dir(Chr(i) & ":\", vbDirectory + vbHidden + vbSystem)
 
If Err = 52 Then
    Err.Clear
Else
    If x <> "" Then AllDir = AllDir & (Chr(i) & ":\")
      Err.Clear
End If
 
Next i
MsgBox AllDir
End Sub
Dim AllDir
Private Sub Form_Load()
On Error Resume Next
For i = 65 To 90
x = Dir(Chr(i) & ":\", vbDirectory + vbHidden + vbSystem)

If Err = 52 Then
    Err.Clear
Else
    If x <> "" Then AllDir = AllDir & (Chr(i) & ":\")
      Err.Clear
End If

Next i
MsgBox AllDir
End Sub

Hope this helps...