No.1
如果磁盘里的Excel文件较多，查找起来就十分麻烦，如何有效地对文件进行管理，就显得很重要了。
本节主要介绍Dir函数。
这个函数和DOS操作系统命令一样，具有遍历文件和文件夹的功能。
如果对DOS中的Dir命令熟悉，那么应用Dir函数就简单多了。
No.2
下图为Dir函数语法和参数说明：
功能：
返回一个 字符串，字符串为指定模式或文件属性或驱动器的卷标匹配的文件、目录或文件夹的名称。
语法：
Dir(pathname, [ attributes ])
Pathname：文件名或文件夹路径
attributes:文件属性值
No.3
下图为例具体演示:
本例只有一个按钮功能，单击按钮弹出对话框，选择一个文件夹。
确定之后，自动找出文件名，然后填到工作表当中，可以看到图中显示文件名称。
本例比较简单，应用到一些关键内容文后列出。
下面看一下代码。
按钮代码：
DirFileList过程：
以上代码可实现选定某一文件夹，自动列出文件的功能。
No.4
涉及内容：
- 文件夹选择器：Application.FileDialog(msoFileDialogFolderPicker)
- Dir函数：Dir(DirPath & "")
- 数组重定义：ReDim Preserve DirArr(Di)
- 取模或余数运算符：Mod
- 转置函数：Application.WorksheetFunction.Transpose(DirArr)
- 循环语句：Do While 条件...Loop
以上内容是构成本节的重点掌握内容，其中Dir函数要注意一下，参数中的路径一定要以""斜杠结束，不然会认为给出的目录为一个文件名，无法返回正确的文件名。
其它内容，在其它文章里找到相关详细的使用介绍。
若要循环访问文件夹中的所有文件，指定一个空字符串，如：
Dir("")
在 Microsoft Windows 系统中，Dir 支持使用多字符 (*) 和单字符 (?) 通配符来指定多个文件。 在 Macintosh 上，这些字符被视为有效文件名称字符，且不能用作指定多个文件的通配符。
也就是说，Dir函数在Windows系统中使用支持通配符对文件进行查找。
如，查找文件名中带有JM的文件，使用如下代码：
Dir("*JM*",0)
这个代码就返回带有"JM"的文件名。
当然这只能返回第一个找到的文件名，如果要遍历所有文件夹文件，就必须用到循环语句。
Do While 条件语句
语句..
loop
结尾
Dir函数应用需要一个学习过程，如果一时不会也是可以理解的，因为这需要一些磁盘操作的相关知识。
如果对磁盘的工作原理或名词术语不是很熟悉，那么对这个函数也是很陌生的感觉。
对于要进行更高阶层的编程学习而言，是必不可少要学习的内容。
---END---
欢迎关注、收藏
