Private Declare Function GetLogicalDrives Lib "kernel32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
bin = GetLogicalDrives()
Do
b = bin Mod 2 & b
bin = Int(bin / 2)
Loop While bin > 1
For i = 1 To Len(bin & b)
Select Case GetDriveType(Chr(64 + i) & ":/")
Case 1
Print Chr(64 + i) & ":/磁盘不存在"
Case 2
Print Chr(64 + i) & ":/可移动磁盘"
Case 3
Print Chr(64 + i) & ":/磁盘驱动器"
Case 4
Print Chr(64 + i) & ":/网络驱动器"
Case 5
Print Chr(64 + i) & ":/光盘驱动器"
Case 6
Print Chr(64 + i) & ":/RAM驱动器"
End Select
Next
End Sub