### Excel VBA 操作文件四大方法之二：利用 VBA 文件处理语句处理文件
在 Excel VBA（Visual Basic for Applications）中，处理文件是一项常见且重要的任务。VBA 提供了丰富的内置语句和函数，使用户能够高效地执行各种文件操作。本文将详细介绍几种常用的操作文件的方法，并通过具体的例子帮助读者更好地理解和应用。
#### 一、文件处理
##### 1. **Name 语句**
- **语法**：
```vb
Name oldpathname As newpathname
```
- **功能**：用于重命名文件、目录或文件夹，也可以移动文件。
- **说明**：
- 如果尝试对已打开的文件使用 `Name` 语句，将会导致错误。
- 错误处理非常重要，通常可以通过 `On Error Resume Next` 或其他错误处理机制来实现。
- **示例**：
```vb
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" ' 跨驱动器移动并重命名文件
```
##### 2. **FileCopy 语句**
- **语法**：
```vb
FileCopy source, destination
```
- **功能**：用于复制文件。
- **说明**：
- 如果尝试复制已打开的文件，将会导致错误。
- **示例**：
```vb
FileCopy "f:\TEST.xls", "e:\TEST.xls" ' 从 F 盘复制文件到 E 盘
```
##### 3. **Kill 语句**
- **语法**：
```vb
Kill pathname
```
- **功能**：删除磁盘中的文件。
- **说明**：
- `Kill` 支持使用通配符（如 * 和 ?）来删除多个文件。
- 如果尝试删除已打开的文件，将会导致错误。
- **示例**：
```vb
Kill "f:\TEST.xls" ' 删除 F 盘的 TEST.xls 文件
Kill "f:\*.xls" ' 删除 F 盘所有 xls 文件
```
##### 4. **GetAttr 函数**
- **语法**：
```vb
GetAttr(pathname)
```
- **功能**：获取文件、目录或文件夹的属性。
- **返回值**：一个整数值，代表文件的各种属性总和。
- **属性值**：
- `vbNormal`: 0 —— 常规
- `vbReadOnly`: 1 —— 只读
- `vbHidden`: 2 —— 隐藏
- `vbSystem`: 4 —— 系统文件
- `vbDirectory`: 16 —— 目录或文件夹
- `vbArchive`: 32 —— 存档文件
- `vbalias`: 64 —— 指定的文件名是别名（仅在 Macintosh 中可用）
- **示例**：
```vb
Debug.Print GetAttr("F:\test.txt") ' 输出文件属性
Debug.Print GetAttr("F:\test.txt") And vbReadOnly ' 判断文件是否为只读
```
##### 5. **SetAttr 语句**
- **语法**：
```vb
SetAttr pathname, attributes
```
- **功能**：为文件设置属性。
- **说明**：
- 如果尝试给已打开的文件设置属性，将会导致错误。
- **示例**：
```vb
SetAttr "F:\test.txt", vbHidden ' 设置隐藏属性
SetAttr "F:\test.txt", vbHidden + vbReadOnly ' 设置隐藏并只读
```
##### 6. **FileLen 函数**
- **语法**：
```vb
FileLen(pathname)
```
- **功能**：获取文件的长度（单位为字节）。
- **说明**：
- 当调用此函数时，无需打开文件；如果文件已打开，则返回的是打开前的文件大小。
##### 7. **FileDateTime 函数**
- **语法**：
```vb
FileDateTime(pathname)
```
- **功能**：获取文件的创建或最后修改日期和时间。
- **示例**：
```vb
Debug.Print FileDateTime("F:\TEST.xls") ' 输出文件的最后修改时间
```
#### 二、目录处理
##### 1. **CurDir 函数**
- **语法**：
```vb
CurDir[(drive)]
```
- **功能**：返回当前路径。
- **说明**：
- `drive` 参数可选，用于指定一个存在的驱动器。如果未指定或为零长度字符串 (""), 将返回当前驱动器的路径。
- **示例**：
```vb
Debug.Print CurDir ' 返回当前目录
Debug.Print CurDir("C") ' 返回 C 盘当前目录
Debug.Print CurDir("D") ' 返回 D 盘当前目录
```
##### 2. **ChDir 语句**
- **语法**：
```vb
ChDir pathname
```
- **功能**：更改当前目录。
- **说明**：
- `pathname` 指定新的当前目录。
- **示例**：
```vb
ChDir "F:\Temp" ' 更改当前目录到 F:\Temp
```
以上就是关于如何使用 VBA 文件处理语句来处理文件和目录的主要内容。通过这些语句和函数，用户可以在 Excel VBA 环境中轻松地管理文件系统，提高工作效率。在实际开发过程中，需要注意对错误的处理以及确保程序的稳定性和安全性。
VIP享7折，此内容立减4.47元 
