Question

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

问题问得不好额
应该是怎么用VB编写一个程序，打入文件名字中一个关键词后就可以搜索指定文件夹下的该拓展名文件。复制个文件我会的额

Answer 1

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