递归遍历目录

最新推荐文章于 2024-06-06 20:27:41 发布

原创最新推荐文章于 2024-06-06 20:27:41 发布 · 641 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #exception #each #file

博客给出了一段递归遍历目录的代码。代码定义了 `getDirectory` 方法，通过 `Directory.GetFiles` 和 `Directory.GetDirectories` 获取文件和子目录，使用嵌套循环遍历，将文件完整路径添加到列表框，同时使用递归处理子目录，还包含异常处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'****************************

'递归遍历目录

' 作者：自由奔腾（wgscd）

' E-mail:wgscd@126.com

Public Sub getDirectory(ByVal strpath As String)
Try
Dim file As FileInfo

            Dim str As String
            Dim strs As String() = Directory.GetFiles(strpath)
            Dim subdirectory As String
            Dim subdirectoryEntries As String() = Directory.GetDirectories(strpath)
            For Each subdirectory In subdirectoryEntries
                For Each str In strs
                    Me.Text = subdirectory
                    file = New FileInfo(str)

' If file.FullName Like "*.jpg" Or file.FullName Like "*.bmp" Or file.FullName Like "*.gif" Or 'file.FullName Like "*.png" Then '可以添加指定的文件为你所用！！

ListBox1.Items.Add(file.FullName) '添加到列表里
Me.Text = file.FullName

' End If

                Next str
                getDirectory(subdirectory) '递归
            Next subdirectory

Catch ex As Exception

End Try