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
