visual basic 6.0遍历文件夹下所有文件代码

经常需要的代码，发出来给大家参考一下！

'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