[原创]马大哈系列功能模块-----DIR+递归实现搜索文件,支持...
'搜索文件模块测试过程'BY 嗷嗷叫的老马
'紫水晶工作室
'http://www.m5home.com/
Dim I() As String, J As Long<
I = SearchFileInPath("c:\windows\web", "*.*")
For J = 0 To UBound(I)
Debug.Print I(J) '打印所有文件
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的文件名会出现两次.
要怎么才不会重复呢?
页:
[1]