xcopy复制文件夹及其子文件_VBA学习笔记48:VBA文件夹操作

学习资源：《Excel VBA从入门到进阶》第48集 by兰色幻想

---

忘了之前老师有没有讲过Dir函数了，还是写一下吧，再开始正文吧：

Dir函数：返回一个 String，它表示与指定路径下的文件、目录或文件夹的名称。

语法：Dir ( pathname, 属性 )

①pathname：指定地址，第一次调用必填。

若要获取与 pathname 匹配的任何其他文件名，请重新调用 Dir 且不填写参数。

简单举例：

filename = Dir("C:" & "*.doc")  ‘在C盘查找word文件，并返回word文档的名称给filename
filename2 = Dir                  '再次调用Dir，在C盘查找第二份word文件，并返回它的文档名给filename2

Dir查找遍历的顺序是按照系统排序。如果对排序有要求，可用数组存储文件名，然后对数组进行排序。

一般会搭配循环遍历文件，结束循环的条件为Dir返回空值。

当不再有匹配的文件名时，Dir 将返回零长度字符串 ("")。在返回零长度字符串后，后续再调用需重新填写参数pathname，否则将发生错误。

②属性：选填，有如下属性c：

本节课中Dir函数第二个参数主要使用vbNormal（默认，即不写），和 vbDire