关于Dir函数的用法说明:
Dir函数的语法为:Dir(pathname, attributes)。
在attributes参数中,可以设置不同的值来过滤返回的文件或文件夹信息。
设置vbDirectory(数字简写16)时,将返回文件夹名和文件名,同时还会返回“.”与“..”表示当前和上级文件夹名。
缺省情况下,使用vbNormal(数字简写0)参数,它将返回所有文件的文件名。若在“e:\temp\”路径下仅有文件夹而无文件,使用Dir函数将得到空值。
其他参数如vbReadOnly(数字简写1)用于返回只读文件的文件名,vbHidden(数字简写2)用于返回隐藏文件的信息,而VbSystem(数字简写4)则用于返回系统文件的相关信息。
关于创建和删除文件夹的操作:
MkDir函数用于创建新文件夹,需要指定Path参数,即所要创建的文件夹的字符串表达式。若未指定驱动器,则会在当前驱动器上创建文件夹,但需注意,这并不一定是ThisWorkBook路径中的驱动器。
RmDir函数则用于删除文件夹,同样需要指定Path参数。需要注意的是,RmDir只能删除空文件夹。
关于文件操作:
Kill函数用于删除文件。其语法为Kill pathname,其中Pathname是必需的参数,表示完整路径加文件全名的字符串表达式,文件全名需包含扩展名。
Kill函数支持使用多字符()和单字符(?)的通配符来指定多个文件。
例如,要删除位于ThisWorkbook.Path路径下名为“Test.xls”的文件,可以使用类似这样的语句:Kill ThisWorkbook.Path & "\Test.xls"
Filecopy函数用于拷贝文件。其语法为FileCopy source, destination,其中source是必需的源文件路径加全名参数,表示要被复制的文件名;destination也是必需的参数,指定要复制的目标文件名。
以下是一个Sub程序的示例:
Sub 测试文件拷贝()
FileCopy "e:\temp\积分发放记录.xlsx", "e:\积分发放记录.xls"
End Sub