Excel VBA Dir

内容来自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 文件。