vb实现获取指定目录内的所有文件（包括子目录）

最新推荐文章于 2024-07-03 12:33:01 发布

lmdcszh

最新推荐文章于 2024-07-03 12:33:01 发布

阅读量7.7k

点赞数

分类专栏： VB 文章标签： vb integer string list

本文链接：https://blog.csdn.net/lmdcszh/article/details/6768127

版权

该代码段展示了一个VB子程序`GetPath`，用于递归地遍历指定目录及其子目录，查找并列出所有`.jpg`文件。通过`Dir`函数获取目录中的文件名，然后检查文件是否为jpg格式，将其添加到ListBox中。同时，程序会继续遍历子目录，直到所有层级都被检查。点击按钮`cmdGetPath_Click`启动该过程，传入应用程序路径作为初始目录。

摘要由CSDN通过智能技术生成

Option Explicit
'以竖式遍历先遍历某子目录及内部所有子目录，然后再返回与之同级的目录
Sub GetPath(ByVal FilePath As String, ByVal list As ListBox)
    
    '获取文件路径
    FilePath = IIf(Right(FilePath, 1) = "\", FilePath, FilePath & "\")
    '获取当前目录内的文件名
    Dim FileName As String
    FileName = Dir(FilePath)    '初次使用dir函数需指明路径
    
    '使用一个循环，遍历当前目录内的文件，并逐一验证其属性
    Do While FileName <> ""
        If Right(FileName, 3) = "jpg" Then
            list1.AddItem FilePath & "\" & FileName
        End If
        
        FileName = Dir
    Loop
    
    '缺少此句只会遍历一级目录
    FileName = LCase(Dir(FilePath, vbDirectory))
    
    Dim ChildContent() As String
    Dim Count As Integer
    '获取下一级目录
    Do While FileName <> ""
        If FileName <> "." And FileName <> "