如何用vb打开U盘下的文件?(不知道U盘的盘符)

来源:百度知道 编辑:UC知道 时间:2024/05/18 10:38:34
我想用VB打开U盘根目录下的1.exe,该怎么办?(不知道U盘的盘符)

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Function USBDISK()
Dim i As Long
For i = Asc("A") To Asc("Z")
If GetDriveType(Chr(i) + ":") = 2 Then DEBUG.Print "现有U盘: " & Chr(i)
Next i
End Function

调用这个函数时DEBUG窗口就将依次输出所有U盘的盘符