您的位置：首页 >> 编程开发 >> Visual Basic >> 系统 >> 正文

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

http://www.rdxx.com 08年07月04日 00:00 我要投稿

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

下一篇：无
上一篇：详细介绍vb文件系统控件的使用

标签：文件夹 , 遍历 , Visual Basic , 文件打印本文