how i can get all drive in my computer?
does anyone know how to get it??
Thanks.
Neji
7
Light Poster
Recommended Answers
Jump to Postyes, here it is the code, try it and let me know if it worked :
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 …
All 3 Replies
Jx_Man
987
Nearly a Senior Poster
Featured Poster
yes, here it is the code, try it and let me know if it worked :
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 SubHope this helps...
Neji
commented:
thank you very much. it was i looking for
+1
Sawamura
commented:
worked
+1
dnk
commented:
spontan uhuy
+1
QVeen72
104
Posting Shark
Hi,
One more Simple way:
Add a DriveListBox on the form and loop thru all the list items.. it lists all the drives
Regards
Veena
Neji
7
Light Poster
yes.. got it.
thank you all.
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.