怎么用VB编写搜索指定文件夹下的指定拓展名，并提取出来
答案:1 悬赏:80 手机版
解决时间 2021-03-29 02:45
- 提问者网友：骑士
- 2021-03-28 11:06
怎么用VB编写搜索指定文件夹下的指定拓展名，并提取出来
最佳答案
- 五星知识达人网友：执傲
- 2021-03-28 12:12
额，你究竟是要搜文件名中包含指定关键词的文件呢？还是要搜指定扩展名的文件？我写了个简单的例子给你参考下。你在窗体上添加1个文本框用来输入关键词，添加1个列表框用来输出结果，再添加1个按钮，然后把下面的代码复制进去就行了。
Private Sub Command1_Click()
Dim file As String
file = Dir("c:\windows\*." & Text1.Text)
While file <> ""
List1.AddItem file
file = Dir
Wend
End Sub
这是搜索windows文件夹中指定扩展名的，如果是要搜索文件名中包含关键词的，可以把file = Dir("c:\windows\*." & Text1.Text)这行改成file = Dir("c:\windows\*" & Text1.Text & "*")。
Private Sub Command1_Click()
Dim file As String
file = Dir("c:\windows\*." & Text1.Text)
While file <> ""
List1.AddItem file
file = Dir
Wend
End Sub
这是搜索windows文件夹中指定扩展名的，如果是要搜索文件名中包含关键词的，可以把file = Dir("c:\windows\*." & Text1.Text)这行改成file = Dir("c:\windows\*" & Text1.Text & "*")。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯