怎么用VB编写搜索指定文件夹下的指定拓展名，并提取出来

额，你究竟是要搜文件名中包含指定关键词的文件呢？还是要搜指定扩展名的文件？我写了个简单的例子给你参考下。你在窗体上添加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 & "*")。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vxe377re2fr3rvjxx7j.html