VBA包含了许多用于文件操作的语句和函数,可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一 一介绍。
(一)文件处理
1.Name 语句
语法:Name oldpathname As newpathname
功能:重命名一个文件、目录、或文件夹,移动一个文件。
说明:在一个已打开的文件上使用 Name,将会产生错误。进行文件操作时,一定要注意错误处理。
示例:
On Error Resume Next '错误处理
Name "f:\TEST.xls" As "f:\TEST123.xls" '重命名
Name "f:\TEST.xls" As "f:\dll\TEST.xls" '移动文件
Name "f:\TEST.xls" As "d:\TEST123.xls" '跨驱动器移动并重命名文件
注意:Name不能移动一个目录或文件夹。
2、FileCopy 语句
语法:FileCopy source, destination
功能:复制一个文件。
说明:如果对一个已打开的文件使用 FileCopy 语句,则会产生错误。
示例:
FileCopy "f:\TEST.xls", "e:\TEST.xls" '从F盘复制TEST.xls到E盘
3、Kill 语句
语法:Kill pathname
功能:从磁盘中删除文件。
说明:Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。如果使用 Kill 来删除一个已打开的文件,则会产生错误。
示例:
Kill "f:\TEST.xls" ’删除F盘的TEST.xls文件
Kill "f:\*.xls" ' 删除F盘所有xls文件
4、GetAttr 函数
语法:GetAttr(pathname)
功能:获取一个文件、目录、或文件夹的属性。返回一个 Integer值。
返回值:由GetAttr 返回的值,是下面这些属性值的总和:
常数 值 描述
vbNormal 0 常规
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbDirectory 16