优盘读取问题？各位大侠帮帮忙。。。急。

[jackyhyoung]

我想要的是这样的一种应用场景：
打开我的应用，就自动去查有没有usb存储设备，也就是我们常常所说的优盘，如果有就读取里面的文件内容（只是文本文件）！谁有例子！

[zou19820704]

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

[sx_lxh]

up

[faysky2]

检测磁盘：
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

[faysky2]

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

[vansoft]

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

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

技術支持：[e-mail]

[jackyhyoung]

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