帮忙哦，用VB检测到指定 "卷标" 的移动U盘...............

[ainiture]

我想实现以下功能:

用VB检测到指定 "卷标" 的移动U盘就提示找到,否则就提示未找到
然后再检测以上指定卷标的移动U盘里的a.txt里的内容，如果内容等于123就提示对,否则提示错

希望各位能贴出"完整"的代码哦
我没有分给你们哦，里面分空空的。谢谢各位啦

[yejian520]

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

这是枚举U盘的


Private Sub Command1_Click()
Dim fso As Object, drv As Object
Dim dr As Long, fn As String
fn = "123.txt" '指定文件
Set fso = CreateObject("scripting.filesystemobject")
For dr = 99 To 122
If fso.driveexists(Chr(dr) & ":") Then
Set drv = fso.GetDrive(Chr(dr) & ":")
If drv.drivetype = 1 Then
Print Chr(dr) & "盘 "; drv.volumename; " ";
If Dir(Chr(dr) & ":\" & fn) = "" Then
Print "未找到指定文件"
Else
Print "找到了指定文件"
End If
End If
End If
Next
Set drv = Nothing
Set fso = Nothing
End Sub
自己再结合一下吧