How to get avaliable drives using vb

[apradip]

hi all,

can anybody hell me how to get the avaliable system drives with the help of vb?

pradip

[Merrion]

Using the EventVB.dll you can do this thus:

Option Explicit
 
Dim vbLink As EventVB.ApiFunctions
 
Public Sub ListDrives()
 
If vbLink Is Nothing Then
   Set vbLink = New ApiFunctions
End If
 
Dim volThis As ApiVolume
 
For Each volThis In vbLink.System.Volumes
   Debug.Print volThis.Volumename & " - " & volThis.SerialNumber
Next volThis
 
End Sub

HTH,
Duncan

[moinkhan]

Or put a drivelist and use this (you will not have to use a full megabyte dll)

For x = 0 To Drive1.ListCount - 1
    Debug.Print Drive1.List(x)
Next

You will need a drive listbox for this...