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

最新推荐文章于 2022-09-14 06:51:49 发布

lmdcszh

最新推荐文章于 2022-09-14 06:51:49 发布

阅读量7.9k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/lmdcszh/article/details/6768127

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

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

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