[原创]马大哈系列功能模块-----DIR+递归实现搜索文件,支持...

马大哈

ModSearchFile.bas (2.36 KB, 下载次数: 7256)

2014-6-22 15:43 上传

点击文件名下载附件
[原创]马大哈系列功能模块-----DIR+递归实现搜索文件,支持通配符(VB6.0)

1. '搜索文件模块测试过程
   
2. 'BY 嗷嗷叫的老马
   
3. '紫水晶工作室
   
4. 'http://www.m5home.com/
   
5. Dim I() As String, J As Long<
   
6. 
   
7. I = SearchFileInPath("c:\windows\web", "*.*")
   
8. For J = 0 To UBound(I)
   
9.     Debug.Print I(J)    '打印所有文件
   
10. Next

复制代码

三好学生

很强啊.
这个要搜索两种后缀名的文件要怎么弄呢?我现在代码用两遍,发现在搜第二种后缀名文件的时候会得到重复前一次搜索结果:
Dim I() As String, J As Long
I = SearchFileInPath("c:\windows\web", "*.doc")
For J = 0 To UBound(I)
    list1.additem I(J)    '打印所有文件
Next

I = SearchFileInPath("c:\windows\web", "*.rar")
For J = 0 To UBound(I)
    list1.additem I(J)
Next
结果是list1中那些doc的文件名会出现两次.
要怎么才不会重复呢?