Retrieving the list of logical drives.

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Sub Form_Load()
getdrivers
End Sub
 
Function getdrivers()
Dim lbuff As String, nmb As Long, logicdrvs As String, kkm As Long
lbuff = String(255, Chr$(0))
nmb = GetLogicalDriveStrings(255, lbuff)
For kkm = 1 To nmb
If (Mid$(lbuff, kkm, 1)) <> Chr$(0) Then
logicdrvs = logicdrvs + Mid$(lbuff, kkm, 1)
ElseIf (Mid$(lbuff, kkm, 1)) = Chr$(0) Then
logicdrvs = logicdrvs + " "
End If
Next kkm
Text1.Text = logicdrvs
End Function