内容来自ExcelHome网站
一、题目：
要求编写一段代码，运用Dir函数返回一个文件夹的文件列表。
二、代码：
Sub 示例_1_12()
Dim wjm
wjm = Dir("C:\WINDOWS\WIN.ini")
MsgBox wjm
wjm = Dir("C:\WINDOWS\*.ini")
wjm = Dir
End Sub
三、代码详解
1、Sub 示例_1_12()：宏程序的开始语句。宏名为示例_1_12。
2、Dim wjm ：变量wjm声明为可变型数据类型。
3、wjm = Dir("C:\WINDOWS\WIN.ini") ：
如果该文件存在则返回“WIN.INI”(在C:\Windows 文件夹中) ，把返回的文件名赋给变量wjm 。如果该文件不存在则wjm=””。
4、wjm = Dir("C:\WINDOWS\*.ini") ：
返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，函数将返回按条件第一个找到的文件名。
5、wjm = Dir ：
若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。