vb 搜索指定目录下的指定类型文件
2009-12-09 12:01
411 查看
代码
Function SearchFiles(Path As String, FileType As String)
On Error GoTo ErrMsg
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String
If Right(Path, 1) <> "\" Then Path = Path & "\"
sPath = Dir(Path & FileType) '查找第一个文件
Do While Len(sPath) '循环到没有文件为止
a = a + 1
ReDim Preserve Files(1 To a)
Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中
listFileName.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop
sPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹
Do While Len(sPath) '循环到没有文件夹为止
If Left(sPath, 1) <> "." Then '为了防止重复查找
If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
Loop
For c = 1 To b '使用递归方法,遍历所有目录
SearchFiles Folder(c), FileType
Next
ErrMsg:
End Function
Function SearchFiles(Path As String, FileType As String)
On Error GoTo ErrMsg
Dim Files() As String '文件路径
Dim Folder() As String '文件夹路径
Dim a, b, c As Long
Dim sPath As String
If Right(Path, 1) <> "\" Then Path = Path & "\"
sPath = Dir(Path & FileType) '查找第一个文件
Do While Len(sPath) '循环到没有文件为止
a = a + 1
ReDim Preserve Files(1 To a)
Files(a) = Path & sPath '将文件目录和文件名组合,并存放到数组中
listFileName.AddItem Files(a) '加入list控件中
sPath = Dir '查找下一个文件
DoEvents '让出控制权
Loop
sPath = Dir(Path & "\", vbDirectory) '查找第一个文件夹
Do While Len(sPath) '循环到没有文件夹为止
If Left(sPath, 1) <> "." Then '为了防止重复查找
If GetAttr(Path & "\" & sPath) And vbDirectory Then '如果是文件夹则。。。。。。
b = b + 1
ReDim Preserve Folder(1 To b)
Folder(b) = Path & sPath & "\" '将目录和文件夹名称组合形成新的目录,并存放到数组中
End If
End If
sPath = Dir '查找下一个文件夹
DoEvents '让出控制权
Loop
For c = 1 To b '使用递归方法,遍历所有目录
SearchFiles Folder(c), FileType
Next
ErrMsg:
End Function
相关文章推荐
- php下实现在指定目录搜索指定类型文件的函数
- 查找该目录下指定文件类型的用 vc 6.0 编写 的关于文件搜索的例子
- php下实现在指定目录搜索指定类型文件的函数
- [Shell]在一个目录及其子目录内的指定类型的文件中搜索某个字符串
- UE4 C++实现搜索指定目录下的指定类型的所有文件
- qt搜索指定目录下文件 (转)
- Linux系统编程:获取指定目录下指定文件类型的数量
- VBA遍历当前目录下指定类型的excel文件并复制文件内指定的内容到新表中
- shell从目录下指定的文件类型里匹配关键字
- 批量删除目录下指定类型文件
- 输出该目录下指定类型文件(.cs, .java)的个数、文件的总行数、空行数、注释行数、代码行数
- 采用多线程和生产者消费者模式来实现对于一个目录以及所有子目录下的文件内容的搜索,打印出包含指定关键字的行.
- 算法_java 搜索指定目录下指定类型的文…
- linux 指定文件类型 全目录查找
- 搜索项目中指定文件夹下的文件(VB)
- C++及API函数实现查找某目录下指定类型的文件
- Python 在指定的目录下搜索包含关键字的文件
- 删除365天前指定目录下指定类型文件 perl
- 两个delphi下遍历指定目录下指定类型文件的函数
- Python中实现从目录中过滤出指定文件类型的文件