Excel VBA 编程基础 -- 现代文件处理(五)

我们前面已经讨论了文件夹对象 Folder，现在来看文件对象 File。

File 对象

File 对象包含了操作一个文件所需要的所有工具。

下面首先来看如何获得 File 对象。FileSystemObject 对象提供了获得 File 对象的工具：GetFile 方法。

FSO.GetFile

一般格式如下：

FSO.GetFile(filespec)

其中，filespec 表示指定文件的路径名，路径可以是绝对路径，也可以是相对路径。如果 filespec 表示的文件不存在，将引发“文件未找到”的 53 号错误。

例1. FSO.GetFile 用法示例

Dim fso AsNew FileSystemObjectDim f As FileSet f = fso.GetFile("D:\VBA_files\ok.txt")

有了 File 对象，下面就来看看 File 对象都有哪些可操作的属性和方法。

File 对象的属性

File 对象的属性列于下表：

表1 File 对象属性列表

仔细对比 Folder 对象的属性列表（参阅《现代文件处理》（二）表1）和 File 对象的属性列表，可以看出，二者有很大的相似性，这是因为文件夹 Folder 和文件 File 有很大相似性的缘故。

其中的 Attributes 用来读取和设置文件的特性，所谓特性（attribute），是指一物区别于他物之独特性质。File 对象的 Attributes 列表如下：

表2 File 对象的 Attributes 列表

表中所列的特性可以组合，譬如，x 文件可以是只读文件（Attributes 设置为 ReadOnly），y 文件可以是系统隐含文件（Attributes 设置为 Hidden + System），等等。

例2. File 对象属性用法示例

图1 File 对象属性用法示例

由代码可见，有了 File 对象，我们可以非常容易地访问文件的各种属性及特性。

下面来看 File 对象的方法。

File 对象的方法

File 对象提供了四个方法用来操作文件，列于下表：

表3 File 对象的方法

File.Copy

一般格式是：

File.Copy destination [, overwrite ]

其中，destination 表示拷贝的目的地，可选的 Boolean 参数 overwrite 表示是否覆盖同名文件，True 表示覆盖目的地已存在的同名文件，False 表示不覆盖。

File.Move

一般格式是：

File.Move destination

其中，destination 表示移动的目的地。

FSO.Delete

其一般格式是：

File.Delete [ force ]

其中，可选的 Boolean 参数 force 表示是否删除具有只读（ReadOnly）特性的文件，True 表示删除，False 表示不删除。

例3. File 方法示例

图2 File 对象方法示例

在这个例子中，我们示范了 File 对象的 Copy 方法和 Delete 方法。要注意的是，Copy 方法中目的地 destination 的指定，要后缀以反斜杠即路径分隔符（\）。如果没有此路径分隔符，Copy 将引发“拒绝的权限（Permission denied）”的 70 号错误。

在进入到文件读写讨论之前，先把 FSO 中的一些有关文件操作的方法讲完。

FSO.FileExists

一般格式是：

FSO.FileExists(filespec)

其中，filespec 表示要判定的文件，文件如果不在当前目录，则必须指定绝对或相对路径。如果文件存在，则返回 True，否则返回 False。

FSO.DeleteFile

DeleteFile 用来删除一个或多个文件。一般格式是：

FSO.DeleteFile filespec [, force ]

其中，filespec 指定要删除的文件，可以使用通配符指定多个文件。可选 Boolean 参数 force 表示是否删除只读文件（设置了 ReadOnly 特性的文件），True 表示删除，False 表示不删除。

FSO.CopyFile

一般格式是：

FSO.CopyFile source, destination [, overwrite ]

其中，source 表示要拷贝的文件，可以使用通配符用来指定多个文件。destination 表示要拷贝的目的地，目的地不可使用通配符。可选 Boolean 类型的参数 overwrite 表示是否覆盖同名文件，True 表示覆盖同名文件，False 表示不覆盖。

拷贝过程根据 source 是否含有通配符以及 dest 是否以路径分隔符结尾分为四种情况：

source 含有通配符

不论是否以 \ 结尾，destination 所指定的目的地必须是目录且必须存在，source 指定的多个文件将被拷贝到 destination 目录中。

source 不含有通配符

destination 以 \ 结尾：destination 必须存在，将 source 指定的文件拷贝到 destination 指定的目录中。
destination 不以 \ 结尾：又分为两种情况：

如果 destination 不存在，则将 source 所指定的文件拷贝为 destination 所表示的文件，即 destination 表示目的地文件。
如果 destination 已存在，又分为两种情况：

destination 是目录，则 CopyFile 引发错误。
destination 是文件，此时如果 CopyFile 的 overwrite 参数为 False，则引发错误；否则，destination 将被 source 所指定的文件覆盖。

例1. FSO.CopyFile 示例

图3 FSO.CopyFile 用法示例

本例演示了两种 CopyFile：

首先是带通配符的 source，这样可以一次拷贝多个文件。这在下面的枚举循环中得到了验证。带有通配符的文件名 tab*.txt 表示以 tab 开头，且扩展名是 .txt 的文件。此时，destination 中指定的目的地可以带路径分隔符的后缀，也可以不带，此时要求 destination 指定的必须是文件夹，且必须已经存在。

接下来，删除目的地中的所有文件。注意：文件名可以带有通配符，以指定多个文件。

然后重新指定 source，此时文件名不带有通配符，表示仅指定一个文件。此时，destination 要么后缀以路径分隔符，表示一个已存在的文件夹；要么不带后缀，表示一个目标文件，如果此文件已存在，则要求 CopyFile 指定 overwrite 参数以覆盖旧文件；如果文件不存在，则表示将 source 指定的文件拷贝为该文件。例子中 dest 带有后缀，表示将 source 拷贝到 dest 指定的文件夹中。

FSO.MoveFile

MoveFile 表示移动一个或多个文件。一般格式是：

FSO.MoveFile source, destination

其中，source 表示要移动的文件，可以带有通配符以指定多个文件。destination 表示要移动到的目的地，不可以使用通配符。

如果 source 带有通配符，或 destination 后缀以路径分隔符，则表示将 source 指定的文件移动到 destination 指定的文件夹中，此时目的文件夹必须存在。

如果 source 不带通配符，则表示仅移动一个文件。此时，如果 destination 指定的是一个文件夹（不带有路径分隔符后缀），则出错。如果 destination 指定的文件已存在，则出错。否则，将 source 指定的文件移动为 destination 指定的文件。

例1. FSO.MoveFile 用法示例

图4 FSO.MoveFile 用法示例

本例使用通配符指定要移动多个文件。从移动前后文件列表的情况可以看出，FSO.MoveFile 确实将 source 指定的文件移动到了 destination 指定的目的地。

综合以上的讨论，可以得出以下结论：

File.Copy / File.Move 用来拷贝 / 移动一个文件

因为 File 对象已经包含了 source，因此用文件对象来拷贝 / 移动文件比较简单。仅需指定目的地即可。

FSO.CopyFile / FSO.MoveFile 用来拷贝 / 移动多个文件

使用 FSO 对象拷贝 / 移动文件，需要指定 source 和 destination，灵活是其最大的优点，但同时也是缺点，因为比较麻烦，容易出错。