整体思路是:
1.将需要查找所有文件的文件夹地址赋给数组,成为arr(1)
2.使用folder.subfolders属性将子文件夹继续赋给数组,成为arr(i)
3.使用folder.files属性访问所有文件夹内的文件
核心算法就是,将子文件夹地址不断加入数组,然后遍历数组中的每一个地址访问文件
首先需要添加引用:Microsoft Scripting runtime
Sub 所有文件夹()
Dim fs As New FileSystemObject, arr(), i
整体思路是:
1.将需要查找所有文件的文件夹地址赋给数组,成为arr(1)
2.使用folder.subfolders属性将子文件夹继续赋给数组,成为arr(i)
3.使用folder.files属性访问所有文件夹内的文件
核心算法就是,将子文件夹地址不断加入数组,然后遍历数组中的每一个地址访问文件
首先需要添加引用:Microsoft Scripting runtime
Sub 所有文件夹()
Dim fs As New FileSystemObject, arr(), i