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

2023年4月29日 632次阅读 来源: 递归算法

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

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

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

 

   

    原文作者：递归算法
    原文地址: https://blog.csdn.net/ecjtuandy/article/details/38784879
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞