742
社区成员
发帖
与我相关
我的任务
分享
Private Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Command1_Click()
Dim i As Long
For i = Asc("C ") To Asc("Z ")
If GetDriveType(Chr(i) + ": ") = 2 Then Debug.Print "现有U盘: " & Chr(i)
Next i
End Sub