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

jackyhyoung 2005-12-15 12:25:00
我想要的是这样的一种应用场景:
打开我的应用,就自动去查有没有usb存储设备,也就是我们常常所说的优盘,如果有就读取里面的文件内容(只是文本文件)!谁有例子!
...全文
111 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
jackyhyoung 2005-12-25
  • 打赏
  • 举报
回复
//vansoft(Vansoft Workroom)
收费..
太功利了吧.
vansoft 2005-12-16
  • 打赏
  • 举报
回复
你說的比較簡單,只要循環盤符,判斷其類型即可。

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

技術支持:Van_flf@hotmail.com
faysky2 2005-12-15
  • 打赏
  • 举报
回复
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
faysky2 2005-12-15
  • 打赏
  • 举报
回复
检测磁盘:
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
sx_lxh 2005-12-15
  • 打赏
  • 举报
回复
up
zou19820704 2005-12-15
  • 打赏
  • 举报
回复
不用API
你需要是使用FSO查看优盘的准备情况, 然后读取里面以txt为扩展名的文件!

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧