先查找U盘盘符，如果是U盘，判断是否有123.txt这个文件：
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
Text1 = Chr(i) & ":"
On Error GoTo erdisk
If Dir(Chr(i) & ":\123.txt") <> "" Then
'找到了，执行你想要的代码
End If
erdisk:
End If
Next i
End Function
& App.Path & "\123.txt
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024