打印本文 打印本文  关闭窗口 关闭窗口  
visualbasic6.0遍历文件夹下所有文件代码
作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:37:30  文章录入：杜斌  责任编辑：杜斌
　　经常需要的代码，考试大为您整理！
　　’sPath是所查找的文件夹的路径，list是返回的文件列表
　　Public Function GetAllFiles(ByVal sPath As String, list As Collection)
　　Dim item As String
　　Dim oPaths As New Collection
　　item = Dir(sPath, vbDirectory)
　　While Len(item) > 0
　　If item <> "." And item <> ".." Then
　　If (GetAttr(FullPathName(sPath) & item) And vbDirectory) = vbDirectory Then
　　oPaths.Add item
　　Else
　　If IsModelFile(item) Then list.Add sPath & item
　　End If
　　End If
　　item = Dir
　　Wend
　　Dim p
　　For Each p In oPaths
　　Call GetAllFiles(Combin(sPath, p), list)
　　Next
　　End Function
　　’判断文件夹后是否有\
　　Public Function FullPathName(ByVal strPath As String) As String
　　FullPathName = IIf(VBA.Right(strPath, 1) = "\", strPath, strPath & "\")
　　End Function
　　’多个文件夹名组成路径
　　Public Function Combin(ParamArray arg()) As String
　　Dim X
　　Dim result As String
　　For Each X In arg()
　　result = result & FullPathName(X)
　　Next
　　Combin = result
　　End Function
打印本文 打印本文  关闭窗口 关闭窗口