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
