vba如何判断指定路径的文件夹?

Answer 1

VBA功能的强大不仅仅是体现在对单张工作表或者是单个工作簿。而是以excel为载体，可以实现跨文件操作。搭建这座大楼的第一步必然是遍历文件名与路径。这是这次工程的目的——熟悉文件路径与文件名的遍历。当前文件夹下的遍历当然很简单，但是还有一种文件夹层层包裹的情况，这种时候就需要用一些特殊的方法，这里会将几种都讲清楚。

用到的方法是dir方法。

dir是一种遍历当前目录下文件的方法。在第一次指定了dir中的文件夹路径之后便不用再进行指定。之后每次调用dir，返回的值就是下一个当前文件夹下的文件名。类似于python中的迭代器。当dir遍历了所有文件名对象后，就会返回""，如果再调用才会报错。此外，如果给出具体某个文件的文件路径，文件存在，dir就会返回文件名，不存在则会返回空。

另一个方法是fso对象（filesystemobject）。

因为dir不能够显示文件夹，只能显示带后缀的文件名，所以需要fso来进行辅助。fso的常用用法为。

具体的实现过程：基础部分已经讲解完毕，接下来就是具体的实现过程。首先，第一个值得注意的点是文件夹路径 = 文件路径 + "/"。因为ThisWorkbook.Path只会返回所在文件夹的路径，所以要加一个反斜杠/，这才是文件所在的路径。之后进入循环，每次遍历都通过 Range("A" & Rows.Count).End(xlUp).Row + 1 更新最下单元格的行数。循环的最后使用 文件名 = Dir，将文件名对象给更新。循环终止的条件就是Dir返回的值为""，就终止循环。

在当前文件夹下进行指定后缀文件遍历，对上面的代码进行稍微修改即可。后缀 = 指定后缀.后缀 是从窗体进行输入的，这里不用管。这段代码和上面的代码最大的不同就是使用了通配符*。具体的可以结合前文的dir基础知识。

实现层层嵌套文件夹遍历是最难点。首先将前面的遍历当前文件路径下的文件写成一个函数。接下来是遍历当前路径下所有文件夹，同样将其写成一个函数。只要把上面两个函数进行拼接，那么就可以实现遍历子文件夹中的所有文件以及当前文件夹中的所有文件。但如果子文件夹不止一层，而是很多层，一层套一层该怎么办。这时候就要通过函数嵌套。首先将前面写的两个函数组合成一个新函数，再在新函数中调用自己即可。

总结：使用到了dir与fso对象，加深了对文件操作的认识与理解。嵌套循环的使用在思维上是一个大弯，需要多加练习。为了方便起见，我在代码上额外加入了超链接，点击即可跳转到文件。