EnumDisks

'Dichiarazioni


Private Declare Function GetLogicalDriveStrings Lib "kernel32" _
Alias "GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) _
As Long

'Utilizzo della funzione


Private Sub Command1_Click()
Dim colDrives As New Collection
Dim varDrive As Variant

If VbGetDrivesByString(colDrives) > 0 Then
For Each varDrive In colDrives
Debug.Print varDrive
Next
End If
End Sub

'la funzione restituisce il numero delle unita' trovate


Function VbGetDrivesByString(colDrives As Collection) _
As Integer

Dim strBuffer As String
Dim lngBytes As Long
Dim intPos As Integer
Dim intPos2 As Integer
Dim strDrive As String

Set colDrives = New Collection

strBuffer = Space(255)

lngBytes = GetLogicalDriveStrings( _
Len(strBuffer), strBuffer)

intPos2 = 1
intPos = InStr(intPos2, strBuffer, vbNullChar)
Do Until intPos = 0 Or intPos > lngBytes

strDrive = Mid(strBuffer, intPos2, intPos - intPos2)

colDrives.Add strDrive, strDrive

intPos2 = intPos + 1
intPos = InStr(intPos2, strBuffer, Chr(0))
Loop

VbGetDrivesByString = colDrives.Count

End Function