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

2008-07-04 作者:bitsCN整理来源:中国网管联盟点评 投稿 收藏

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

网管下载dl.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

网管下载dl.bitscn.com

                Call GetAllFiles(Combin(sPath, p), list)
            Next
        End Function

网管联盟bitsCN@com

判断文件夹后是否有

         Public Function FullPathName(ByVal strPath As String) As String
            FullPathName = IIf(VBA.Right(strPath, 1) = "\", strPath, strPath & "\")
        End Function

中国网管论坛bbs.bitsCN.com

多个文件夹名组成路径

        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 网管bitscn_com

网管网www.bitscn.com

顶一下

TAGs：

上一篇：vb.net中使用GetPrivateProfileString访问INI文件下一篇：通过app.config来改变编译路径的问题

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

2008-07-04 作者:bitsCN整理 来源:中国网管联盟 点评 投稿 收藏

2008-07-04 作者:bitsCN整理来源:中国网管联盟点评投稿收藏