После определения логических дисков имеющихся в системе самое время определить тип диска. Нам поможет функция GetDriveType
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _ (ByVal nDrive As String) As Long
Public Function fnDriveType(strDriveName As String) As String ' Возвращает тип диска ' пример вызова fnDriveType("c:") Dim lngRet As Long Dim strDrive As String lngRet = GetDriveType(strDriveName) Select Case lngRet Case 0 strDrive = "Неизвестный тип" Case 1 strDrive = "Диск не найден" Case 2 strDrive = "Сменный диск" Case 3 strDrive = "Локальный диск" Case 4 strDrive = "Сетевой диск" Case 5 strDrive = "CD Rom" Case 6 strDrive = "RAM диск" End Select fnDriveType = strDrive End Function
Источник: Джеффри Рихтер (Jeffrey Richter) "Windows для профессионалов 3-е издание" ("Advanced Windows Third Edition")