Code:
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Function GetAllDrivers() As String()
'CODEID=775
Dim DriveID As String
Dim StrDrive As String * 96
Dim Ret As Long
Ret = GetLogicalDriveStrings(96, StrDrive)
Dim I As Integer
Dim ID As Long, ub As Long
Dim DriverList() As String
ub = Ret / 4 - 1
ReDim DriverList(ub)
For I = 0 To ub
DriverList(i) = Mid(StrDrive, I * 4 + 1, 3)
Next
GetAllDrivers = DriverList
End Function