·上一篇:ASP 调用SQL Server存储过程简单实例
·下一篇:ASP 遍历指定目录及子目录所有文件
VB 遍历指定目录及子目录所有文件函数
这个函数可以遍历指定一个目录下的所有文件,包括子目录.也可以指定文件类型遍历。
- VBScript code复制代码
Private Function SearchFiles(Path As String, FileType As String) 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 '将文件目录和文件名组合,并存放到数组中 List1.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 End Function
'调用示例 Private Sub Form_Load() ' * 星号表示多个任意字符 SearchFiles "C:\Program Files\WinRAR\", "*" '查找所有文件 ' SearchFiles "C:\Program Files\WinRAR\", "*.exe" '查找所有exe文件 ' SearchFiles "C:\Program Files\WinRAR\", "*in*.exe" '查找文件名中包含有 in 的exe文件 End Sub