Dir 函数的语法：Dir(pathname, attributes)

attributes 参数的设置可为：

vbDirectory （数字简写16） 返回文件夹名字 文件名字（vbDirectory 参数还会返回”.” 与”..”文件夹名）

Sub 遍历() fn = Dir(“e:\temp\”, vbDirectory ) ’注意文件夹右边还需要”\”符号 Do n=n 1 Range(“A”&n)=fn ’在A列 输出 文件名 fn =Dir 'fn 得到的还有文件夹的名字 Loop until fn = “” End Sub

vbNormal （数字简写 0）为缺省值， 返回所有文件的文件名。如果“e:\temp\” 下只有文件夹，没有文件，fn =Dir fn 得到的就是空值。

vbReadOnly （数字简写 1） 返回只读文件的文件名；vbHidden 2 隐藏文件

VbSystem 4 系统文件

MkDir 与 RmDir

创建文件夹 MkDir Path：Path 必要参数，是用来指定所要创建的文件夹的字符串表达式。

Path 如果没有指定驱动器，则MkDir 会在当前驱动器上创建文件夹。但当前驱动器不等于当前文件所在的驱动器，就是并非ThisWorkBook路径中的驱动器（如何确定的，逻辑不详）。

删除文件夹 Rmdir Path：必要的 Path 参数是一个字符串表达式，用来指定要删除的文件夹。

Path参数同上。注： RmDir 只能删除空文件夹。

Kill 删除文件；语法：Kill pathname

Pathname 必要参数，“完整路径 文件全名字”的字符串表达式。文件全名字指 要含“扩展名”。

Kill 支持多字符 (*) 和单字符 (?) 的通配符来指定多个文件。

例：Kill ThisWorkbook.Path & "\Test.xls"

Filecopy 拷贝文件；语法：FileCopy source, destination

source 必要参数，源文件路径 全名字；用来表示要被复制的文件名。destination 必要参数，用来指定要复制的目地文件名。Source与destination 参数不能省略文件扩展名，还不支持通配符。注：对一个已打开的文件使用 FileCopy语句，则会产生错误。

Sub test()

FileCopy "e:\temp\积分发放记录.xlsx", "e:\积分发放记录.xls"

End Sub