【VBA】遍历文件夹及子文件夹

最新推荐文章于 2024-08-05 10:53:32 发布

原创

最新推荐文章于 2024-08-05 10:53:32 发布 · 5k 阅读

标签

#vba #遍历

收录于

本文介绍了如何使用VBA遍历指定文件夹及其所有子文件夹，详细阐述了实现这一功能的关键代码，对于需要处理大量文件的VBA编程者具有实用价值。

1. 需求
遍历文件夹及子文件夹

2. 实现代码

Function recursiveFolder(strFolder)

    Dim fso, objFolder, objFiles, objSubFolder
    Set fso = CreateObject("Scripting.FileSystemObject")

    If fso.FolderExists(strFolder) Then
        Set objFolder = fso.getFolder(strFolder)
        Set objFiles = objFolder.Files
        Set objSubFolder = objFolder.subFolders
        For Each oFile in objFiles
            Debug.print "文件名" & oFile.Name