不用API 
 你需要是使用FSO查看优盘的准备情况， 然后读取里面以txt为扩展名的文件！

up

检测磁盘：
Private Sub Command1_Click()
    Dim ShellApp, oPanel, FolderItem1, FolderItem2, oItem
    Set ShellApp = CreateObject("Shell.Application")
    Set oPanel = ShellApp.NameSpace(0)

    Set FolderItem2 = Nothing
    For Each FolderItem1 In oPanel.Items
      If FolderItem1.Name = "我的电脑" Then
        Set FolderItem2 = FolderItem1.GetFolder: Exit For
      End If
        Debug.Print FolderItem1.Name
    Next

    If FolderItem2 Is Nothing Then
      MsgBox "找不到项目！"
      Exit Sub
    End If

    Set oItem = Nothing
    For Each oItem In FolderItem2.Items
'        Debug.Print oItem.Name
        If InStr(oItem.Name, "可移动磁盘") Then
            MsgBox "检测到" & oItem.Name
        End If
    Next
End Sub

Private Sub Command2_Click()
    FillInText("H:\") '假设H盘是U盘 '把U盘根目录下的所有文本文件读出，写到RichTextBox里
End Sub

Sub FillInText(ByVal Folder As String)
    Dim fso As New FileSystemObject
    Dim objFile, objFolder
    Dim fLen As Long, fText As String
    Set objFolder = fso.GetFolder(Folder)
    For Each objFile In objFolder.Files
        If fso.GetExtensionName(objFile.Path) = "txt" Then
            fLen = FileLen(objFile.Path)
            '多个文件的内容以星号隔开  
            RichTextBox1.Text = RichTextBox1.Text & "************************************************************************" & vbCrLf
            fText = Space(fLen)
            Open objFile.Path For Binary As #1 Len = fLen
            Get 1, , fText
            Close 1
            RichTextBox1.Text = RichTextBox1.Text & fText
        End If
    Next
End Sub

你說的比較簡單，只要循環盤符，判斷其類型即可。

另一種是即時偵測，只要他一插上就會發現。
這種有那麽一點點的難度。但效果比前一種好得多。

技術支持：Van_flf@hotmail.com

//vansoft(Vansoft Workroom)
收费..
太功利了吧.