VBA文件操作及目录操作.docxVIP

VBA文件操作及目录操作 VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要求。下面我们按照操作目的进行一一介绍。（一）文件处理1.Name 语句语法：Name oldpathnameAsnewpathname功能：重命名一个文件、目录、或文件夹，移动一个文件。说明：在一个已打开的文件上使用 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 目录或文件夹vbArchive 32 存档文件vbalias 64 指定的文件名是别名。只在Macintosh中可用。说明：若要判断是否设置了某个属性，在GetAttr函数与想要得知的属性值之间使用 And 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。示例：Debug.PrintGetAttr(F:/test.txt) 若为存档文件，在立即窗口可看到值为32Debug.PrintGetAttr(F:/test.txt) 将属性—高级—可存档文件的勾去掉后，值为0为判断一个文件是否只读，可用下法:Debug.PrintGetAttr(F:/test.txt) And vbReadOnly若值非零，说明时只读的。5、SetAttr语句语法：SetAttrpathname, attributes功能：为一个文件设置属性。说明：如果想要给一个已打开的文件设置属性，则会产生运行时错误。示例：SetAttrF:/test.txt, vbHidden 设置隐藏属性。SetAttrF:/test.txt, vbHidden + vbReadOnly 设置隐藏并只读。6、FileLen函数语法：FileLen(pathname)功能：获取一个文件的长度，单位是字节。说明：当调用FileLen函数时，不需要打开文件，如果所指定的文件已经打开，则返回的值是这个文件在打开前的大小。7、FileDateTime函数语法：FileDateTime(pathname)功能：获取一个文件被创建或最后修改后的日期和时间。示例：Debug.PrintFileDateTime(F:/TEST.xls) 在立即窗口可看到2007-3-29 19:28:27（二）目录处理1、CurDir函数语法：CurDir[(drive)]功能：返回当前的路径。说明：drive 参数是可选的，它指定一个存在的驱动器。如果没有指定驱动器，或 drive 是零长度字符串 ()，则CurDir会返回当前驱动器的路径。示例：Debug.PrintCurDir 返回“C:/Documents and Settings/yc/My Documents”。Debug.PrintCurDir(C) 返回“C:/Documents and Settings/yc/My Documents”。Debug.PrintCurDir(D) 返回“D:/”。2、ChDir语句语法：ChDir path功能：改变当前的目录或文件夹。说明：ChDir语句改变缺省目录位置，但不会改变缺省驱动器位置。缺省驱动器一