请教在VB中如何搜索指定的文件呵指定类型的文件？

Question

请教在VB中如何搜索指定的文件呵指定类型的文件
并把结果返回到FileListBox控件中
一天后结帖给分

Answer 1

设置Pattern属性为*.XXX即可，比如.exe显示所有Exe文件。

Answer 2

FileListBox控件不是有个Pattern属性吗？

Answer 3

你的意思是遍历整个硬盘，找出所有该类文件，添加到FileListBox吗？
那又何必使用FileListBox！！！

Answer 4

如果是查找整个硬盘，那你还是用listbox好！
这里用的是FSO对象
函数
=====================
function bianli(path)
       dim fso            'fso对象
       dim objFolder      '文件夹对象
       dim objSubFolders  '子文件夹集合
       dim objSubFolder   '子文件夹对象
       dim objFiles       '文件集合
       dim objFile        '文件对象       set fso=server.CreateObject("scripting.filesystemobject")    
       on error resume next
       set objFolder=fso.GetFolder(path)'创建文件夹对象
       set objSubFolders=objFolder.Subfolders'创建的子文件夹对象
       for each objSubFolder in objSubFolders 
           nowpath=path + "\" + objSubFolder.name
           Response.Write nowpath
           set objFiles=objSubFolder.Files
           for each objFile in objFiles
               listbox1.add objFile.name
           next
           bianli(nowpath)    '调用递归
       next 
       set objFolder=nothing
       set objSubFolders=nothing
       set fso=nothing
   end function
==================
调用：bianli("d:") '调用bianli()函数,这里是遍历d:盘
-----------------------------------------------------------------------
人在江湖，人不由已！我喜欢程序员这职业！