VB.net遍历路径下的所有文件及所有子文件夹---递归算法

来源：互联网发布：ubuntu安装tar.gz 编辑：程序博客网时间：2024/05/17 02:33

路径下所有文件及文件夹的遍历，特此总结下，以备以后使用。

同时，也希望对用得到的朋友有所帮助。先上代码给大家看看：

    Private Sub GetAllFiles(ByVal strDirect As String)  '搜索所有目录下的文件        If Not (strDirect Is Nothing) Then            Dim mFileInfo As System.IO.FileInfo            Dim mDir As System.IO.DirectoryInfo            Dim mDirInfo As New System.IO.DirectoryInfo(strDirect)            Try                For Each mFileInfo In mDirInfo.GetFiles("*.c")                    'Debug.Print(mFileInfo.FullName)                    GetIncludeInfo(mFileInfo.FullName)                Next                For Each mFileInfo In mDirInfo.GetFiles("*.h")                    GetIncludeInfo(mFileInfo.FullName)                Next                For Each mDir In mDirInfo.GetDirectories                    'Debug.Print("******目录回调*******")                    GetAllFiles(mDir.FullName)                Next            Catch ex As System.IO.DirectoryNotFoundException                Debug.Print("目录没找到：" + ex.Message)            End Try        End If    End Sub

说明：Try ···Catch结构中，
1.遍历当前目录下所有的 .c文件 2.遍历当前目录下所有的 .h 文件 3.遍历当前目录的所有子目录（此时，递归调用当前函数实现）

0 0