VBA遍历文件夹及子文件夹中所有文件

VBA中遍历文件方法很多,但很多方法又有局限,DIR的方法很难遍历子文件夹文件.FileSearch方法在office 2007中MS把Application对象FileSearch方法删除了.所有我们来用FileSystemObject对象实现遍历文件夹及子文件夹中所有文件.

代码如下:

Dim arrFiles()
Dim countFiles%
Public Sub ListAllFiles()

         Dim strPath$
         Dim i%
         Dim fso As New FileSystemObject, fd As Folder

strPath = "C:\temp"
         ReDim arrFiles(1 To 1000)
         cntFiles = 0
         Set fd = fso.GetFolder(strPath)
         SearchFiles fd
         ReDim Preserve arrFiles(1 To countFiles)
         For i = 1 To cntFiles
            Msgbox arrFiles(i)
         Next i
End Sub

Sub SearchFiles(ByVal fd As Folder)
     Dim fl As File
     Dim sfd As Folder

     For Each fl In fd.Files
       countFiles= countFiles+ 1
       If cntFiles > UBound(arrFiles) Then ReDim Preserve arrFiles(1 To countFiles+ 1000)

arrFiles(cntFiles) = fl.Path
     Next fl

     If fd.SubFolders.Count = 0 Then Exit Sub

     For Each sfd In fd.SubFolders
       SearchFiles sfd
     Next

End Sub

VBA遍历文件夹及子文件夹中所有文件相关推荐

遍历文件夹(含子文件夹)方法
做法基本上有2大类: ① 经典Dir ② FSO 即 Scripting. File System Object 的[文件系统对象]脚本方法. 一开始可能Dir方法较为普遍,但随着水平的提高,应用FS ...
c++利用windows api遍历指定文件夹及其子文件夹中的文件
以下代码在vs2008中测试通过,利用FindFirstFile,FindNextFile函数遍历了我电脑上全路径为"C:\\Users\\v_tianboli\\Desktop\\wind ...
java ftp遍历所有子文件_Java 遍历指定文件夹及子文件夹下的文件
Java 遍历指定文件夹及子文件夹下的文件 /** * 遍历指定文件夹及子文件夹下的文件 * * @author testcs_dn * @date2014年12月12日下午2:33:49 * @pa ...
BAT 遍历文件夹和子文件夹下所有文件
BAT 遍历文件夹和子文件夹下所有文件参考网址:http://www.cnblogs.com/tangxin-blog/p/5703146.html echo off & color 0A ...
vb遍历文件夹(含子文件夹)
vb遍历文件夹(含子文件夹) vb 遍历文件夹(含子文件夹) 这段时间写软件需要遍历文件夹及文件,以前读写文件都是用BASIC 的老的I/O 方法操作, 仔细阅读了FSO 的操作并在网上整理下资料,得 ...
【C++】window下使用c++遍历文件夹及其子文件夹和文件，并打印文件路径及各文件内容
这两天一直在学习如何使用c++遍历文件夹.读取文件内容和写入文件. 话不多说,直接上代码 /* * 文件功能:递归遍历文件夹,遍历文件夹及其子文件夹和文件.打印文件夹名称.文件名称和文件数目 * * ...
复制当前目录所有文件夹及其子文件夹下的*.jpg文件到store文件夹下
1.复制当前目录所有文件夹及其子文件夹下的.jpg文件到store文件夹下 2.不论多少层目录结构都可以 3.更改文件后缀名.jpg为其它后缀名的文件同样适用 #!/bin/bash # yikai ...
Linux C 读取文件夹下所有文件（包括子文件夹）
Linux C 读取文件夹下所有文件(包括子文件夹) 递归读取某文件夹及其子文件夹下所有文件名深入探讨:linux中遍历文件夹下的所有文件 Linux C :遍历输出指定目录下的所有文件 Linux ...
复制文件夹下所有文件（包括子文件夹），到一个文件夹
把子目录文件复制到当前目录读取文件夹下所有文件路经,包括子文件夹下 import PIL.Image as Image import os import shutil def list_folder ...

VBA遍历文件夹及子文件夹中所有文件

VBA遍历文件夹及子文件夹中所有文件相关推荐

最新文章

热门文章