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

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

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

    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.遍历当前目录的所有子目录（此时，递归调用当前函数实现）