[转]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 中国网管论坛bbs.bitsCN.com                         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

 

 

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

URL：http://www.bitscn.com/dotnet/vb/200807/147175.html

<script type="text/javascript"> </script>