首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VBA -列出给定文件夹及其所有子文件夹中给定扩展名的文件名,直至最后一级

VBA(Visual Basic for Applications)是一种基于Microsoft Visual Basic语言的宏编程语言,广泛应用于Microsoft Office套件中的各种应用程序,如Excel、Word、PowerPoint等。VBA可以通过编写宏来自动化执行各种任务,提高工作效率。

对于列出给定文件夹及其所有子文件夹中给定扩展名的文件名的需求,可以使用VBA编写以下代码:

代码语言:txt
复制
Sub ListFilesByExtension(folderPath As String, extension As String)
    Dim fso As Object
    Dim folder As Object
    Dim subfolder As Object
    Dim file As Object
    Dim fileName As String
    
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' 获取指定文件夹
    Set folder = fso.GetFolder(folderPath)
    
    ' 遍历文件夹及其子文件夹
    For Each subfolder In folder.Subfolders
        ' 遍历当前文件夹中的文件
        For Each file In subfolder.Files
            ' 检查文件扩展名是否匹配
            If LCase(Right(file.Name, Len(extension))) = LCase(extension) Then
                ' 输出文件名
                fileName = file.Path
                Debug.Print fileName
            End If
        Next file
        
        ' 递归调用,遍历子文件夹
        ListFilesByExtension subfolder.Path, extension
    Next subfolder
End Sub

使用上述代码,可以通过调用ListFilesByExtension子过程来列出给定文件夹及其所有子文件夹中给定扩展名的文件名。需要传入两个参数:folderPath表示要遍历的文件夹路径,extension表示要匹配的文件扩展名。

例如,如果要列出文件夹"D:\Test"及其所有子文件夹中的所有以".txt"为扩展名的文件名,可以使用以下代码:

代码语言:txt
复制
Sub Test()
    ListFilesByExtension "D:\Test", ".txt"
End Sub

这样,匹配的文件名将会在VBA的调试窗口中输出。

腾讯云提供了一系列云计算相关的产品和服务,其中包括对象存储、云服务器、云数据库等。这些产品可以帮助用户实现数据存储、计算、网络等方面的需求。具体推荐的腾讯云产品和产品介绍链接如下:

  1. 对象存储(COS):腾讯云对象存储(Cloud Object Storage,简称COS)是一种海量、安全、低成本、高可靠的云存储服务。它可以存储和检索任意数量和类型的数据,适用于图片、音视频、文档等各种场景。了解更多信息,请访问:腾讯云对象存储(COS)
  2. 云服务器(CVM):腾讯云云服务器(Cloud Virtual Machine,简称CVM)是一种弹性计算服务,提供可扩展的计算容量,用户可以根据实际需求弹性地创建、部署和管理云服务器。了解更多信息,请访问:腾讯云云服务器(CVM)
  3. 云数据库MySQL版(TencentDB for MySQL):腾讯云云数据库MySQL版(TencentDB for MySQL)是一种高性能、可扩展的关系型数据库服务,提供了稳定可靠的数据存储和管理能力,适用于各种Web应用、移动应用和游戏等场景。了解更多信息,请访问:腾讯云云数据库MySQL版(TencentDB for MySQL)

以上是关于VBA以及腾讯云相关产品的简要介绍和推荐,希望对您有所帮助。如需了解更多详细信息,请访问腾讯云官方网站。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券