Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 694

Permalink

Apr 6th, 2008

All Drive

Expand Post »

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

Thanks.

Similar Threads

New cdrw drive = boot up problems in Storage
LS-120 drive in Linux Kernel and Hardware Setup
Help: Weird Hard drive space flucuation? in Windows NT / 2000 / XP
Solid Hard Drive Light in Storage

Neji

Reputation Points: 34

Solved Threads: 1

Light Poster

Offline

28 posts
since Feb 2008

Permalink

Apr 6th, 2008

Re: All Drive

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

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...

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,138 posts
since Nov 2007

Permalink

Apr 7th, 2008

Re: All Drive

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

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

Permalink

Apr 7th, 2008

Re: All Drive

yes.. got it.
thank you all.

Neji

Reputation Points: 34

Solved Threads: 1

Light Poster

Offline

28 posts
since Feb 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: MDI Form

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: GetSystemInfo (API Function)

DaniWeb Message

Cancel Changes

User Name
Password