当前位置：首页 > 教育 > 正文

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助

第一种方法：使用filesearch对象

Sub mysearch()
Dim fs, i, arr(1 To 10000)
Set fs = Application.FileSearch '设置一个搜索对象
With fs
.LookIn = ThisWorkbook.Path & "/" '设置搜索路径
.Filename = "*.xls" '要搜索文件名和类型
.SearchSubFolders = True '是否需要搜索子文件夹
If .Execute > 0 Then '如果找不到文件
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found." '显示文件找不到
For i = 1 To .FoundFiles.Count '通过循环把所有搜索到的文件存入到数组中
arr(i) = .FoundFiles(i)
Next i
Sheets(1).Range("A1").Resize(.FoundFiles.Count) = Application.Transpose(arr) ' '把数组内的路径和文件名放在单元格中
Else
MsgBox "There were no files found."
End If
End With
End Sub

第二种方法：引用FileSystemObject对象

注意：要使用FileSystemObject对象，需要首先引用一下，具体方法，VBE--工具--引用--找到miscrosoft scription runtime项目并选中

代码及注释：

Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称
Dim cntFiles% '文件个数

Public Sub ListAllFiles()

Dim strPath$ '声明文件路径
Dim i%
'Set fso = CreateObject("Scripting.FileSystemObject")
Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象

strPath = ThisWorkbook.Path & "/" '"设置要遍历的文件夹目录
cntFiles = 0
Set fd = fso.GetFolder(strPath) '设置fd文件夹对象
SearchFiles fd '调用子程序查搜索文件
Sheets(1).Range("A1").Resize(cntFiles) = Application.Transpose(ArrFiles) '把数组内的路径和文件名放在单元格中

End Sub

Sub SearchFiles(ByVal fd As Folder)

Dim fl As File
Dim sfd As Folder
For Each fl In fd.Files '通过循环把文件逐个放在数组内
cntFiles = cntFiles + 1
ArrFiles(cntFiles) = fl.Path
Next fl

If fd.SubFolders.Count = 0 Then Exit Sub 'SubFolders返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的 Folders 集合

For Each sfd In fd.SubFolders '在 Folders 集合进行循环查找
SearchFiles sfd '使用递归方法查找下一个文件夹
Next

End Sub

你可能想看：

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。

图解蒸气喷射式制冷原理（Steam Jet System）

1、蒸气喷射器原理，蒸气喷射式制冷是以喷射器代替压缩机，利用工质在低压下气化吸热实现制冷，2、蒸气喷射式制冷，蒸气喷射式制冷的工质可以是水，目前在空调工程中多采用以水为工质的蒸汽喷射式制冷装置，简称为...

图解蒸气喷射式制冷原理（Steam Jet System）

1、蒸气喷射器原理，蒸气喷射式制冷是以喷射器代替压缩机，利用工质在低压下气化吸热实现制冷，2、蒸气喷射式制冷，蒸气喷射式制冷的工质可以是水，目前在空调工程中多采用以水为工质的蒸汽喷射式制冷装置，简称为...

错误：java.lang.NoSuchMethodError：org.objectweb.asm.ClassWriter （I）V

>constructor-arg index="0">/bean>bean id="sessionFactory" class="org.springframework.orm.hibernate3...

错误：java.lang.NoSuchMethodError：org.objectweb.asm.ClassWriter （I）V

>constructor-arg index="0">/bean>bean id="sessionFactory" class="org.springframework.orm.hibernate3...

浅析ArcGis中的软件——ArcMap、ArcScene、 ArcGlobe、ArcCatalog

ArcMap 是在 ArcGIS for Desktop 中进行制图、编辑、分析和数据管理时所用的主要应用程序，界面分为布局视图和数据视图两部分并将地理信息表示为地图中的图层和其他元素的集合。

浅析ArcGis中的软件——ArcMap、ArcScene、 ArcGlobe、ArcCatalog

ArcMap 是在 ArcGIS for Desktop 中进行制图、编辑、分析和数据管理时所用的主要应用程序，界面分为布局视图和数据视图两部分并将地理信息表示为地图中的图层和其他元素的集合。

FileDialog.SelectedItems 属性

With Application.FileDialog(msoFileDialogFilePicker) '选择文件夹，[A1] = .SelectedItems(2) '选择的文件路径赋值给活动单元...

FileDialog.SelectedItems 属性

With Application.FileDialog(msoFileDialogFilePicker) '选择文件夹，[A1] = .SelectedItems(2) '选择的文件路径赋值给活动单元...

CBN Friday Special丨Sizzling Zibo: How an old industrial city becomes China’s “hottest” spot?

and such an overnight sensation often wears out q

CBN Friday Special丨Sizzling Zibo: How an old industrial city becomes China’s “hottest” spot?

and such an overnight sensation often wears out q

TEM、HRTEM、STEM——透射电子显微镜的三驾马车

普通透射电子显微镜（TEM）、高分辨透射电子显微镜（HRTEM）和扫描透射电子显微镜(STEM)。下图1（多相粉末催化剂）、图2（纳米晶）为典型普通TEM图形。其中透射电子和弹性散射电子均可用于成像。...

TEM、HRTEM、STEM——透射电子显微镜的三驾马车

普通透射电子显微镜（TEM）、高分辨透射电子显微镜（HRTEM）和扫描透射电子显微镜(STEM)。下图1（多相粉末催化剂）、图2（纳米晶）为典型普通TEM图形。其中透射电子和弹性散射电子均可用于成像。...

签派仪表着陆系统简介(Instrument Landing System)

仪表着陆系统的机载系统是由无线电接收机和仪表组成，它的任务是给驾驶员指示出跑道中心线并给出按照规定的坡度降落到跑道上的路径。PFD仪表着陆系统信号指示ND仪表着陆系统信号指示仪表着陆系统组成图

签派仪表着陆系统简介(Instrument Landing System)

仪表着陆系统的机载系统是由无线电接收机和仪表组成，它的任务是给驾驶员指示出跑道中心线并给出按照规定的坡度降落到跑道上的路径。PFD仪表着陆系统信号指示ND仪表着陆系统信号指示仪表着陆系统组成图

Sweco Architects荣誉丨上海未来产业园获美国缪斯奖最高奖-铂金奖

建筑功能包括商务办公、研发办公、专家公寓、人才公寓、商业及其它配套服务设施，完成了建筑、室内、景观、泛光照明、标识等各项设计工作及施工配合，01 项目定位 项目力求打造开放友好、多样化、人性化、激发创...

Sweco Architects荣誉丨上海未来产业园获美国缪斯奖最高奖-铂金奖

建筑功能包括商务办公、研发办公、专家公寓、人才公寓、商业及其它配套服务设施，完成了建筑、室内、景观、泛光照明、标识等各项设计工作及施工配合，01 项目定位 项目力求打造开放友好、多样化、人性化、激发创...

丹纳赫业务管理系统（Danaher Business System，简称DBS）

将企业的核心价值观同时深植于企业的运营过程及各个职能部门。　丹纳赫集团（Danaher Corporation）是世界最知名的创新产品、服务及技术供应商之一，其中包括皆可博车辆系统公司（Jacobs ...

丹纳赫业务管理系统（Danaher Business System，简称DBS）

将企业的核心价值观同时深植于企业的运营过程及各个职能部门。　丹纳赫集团（Danaher Corporation）是世界最知名的创新产品、服务及技术供应商之一，其中包括皆可博车辆系统公司（Jacobs ...

The world is undergoing tremendous cha来自nges. The rise of glob...

[注释] 总结归纳题：各国对皇际伟观置到造孩迫概械全球的反响可以看做什么倒数第2段中谈到美国是自由贸区怎与坐维笔原治斗火易的积极提倡者，本聚问比巴谁又垄断全世界的娱乐业；

文件对象文件夹'路径

上一篇
网贷进校园，应该怎么管？

下一篇
在意别人的存在

有话要说...

最新文章

取消
扫码支持 支付码