Использование функции GetLogicalDriveStrings для получения строки содержащей список подключенных логических дисков
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _ "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long
Public Function fnGetDrives() As String 'Возвращает строку содержащюю все подключенные диски Dim lngRet As Long Dim strDrives As String * 255 Dim lngTmp As Long
lngTmp = Len(strDrives) lngRet = GetLogicalDriveStrings(lngTmp, strDrives) fnGetDrives = Left(strDrives, lngRet) End Function
Источник: Джеффри Рихтер "Windows для профессионалов 3-е издание" (Jeffrey Richter "Advanced Windows Third Edition")