VBA文件操作及目录操作

VBA文件操作及目录操作

VBA包含了许多用于文件操作的语句和函数，可以满足绝大多数情况下的文件操作要

求。下面我们按照操作目的进行一一介绍。

（一）文件处理

语句

语法：Name oldpathname As newpathna写倡议书的作文 me

功能：重命名一个文件、目录、或文件夹，移动一个一生必读的十本书 文件。

说明：在一个已打开的文件上使用 Name，将会产生错误。进行文件操作时，一定要

注意错误处理。

示例：

On Error Resume Next '错误处理

Name '重命名 Name '移动文件

Name '跨驱动器移动并重命名文件

注意：Name不能移动一个目录或文件夹。

2、FileCopy 语句

语法：FileCopy source, destination

功能：复制一个文件。

说明：如果对一个已打开的文件使用 FileCopy 语句，则会产生错误。

示例：

FileCopy '从F盘复制到E盘

3、Kill 语句

语法：Kill pathname

功能：从磁盘中删除文件。

说明：Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多原地踏步 重文件。如果使用

Kill 来删除一个已打开的文件，则会产生错误。

示例：

Kill ’删除F盘的文件 Kill ' 删除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 运算符与逐位比较。如果所得的结果不为零，则表示设置了这个属性值。

示例：

GetAttr(若为存档文件，在立即窗口可看到值为32

GetAttr(将属性―高级―可存档文件的勾去掉后，值为0

为判断一个文件是否只读，可用下法:

GetAttr(若值非零，说明时只读的。

5、SetAttr 语句

语法：SetAttr张飞之死 pathname, attributes

功能：为一个文件设置属性。

说明：如果想要给一个已打开的文件设置属性，则会产生运行时错误。

示例：

SetAttr ' 设置隐藏属性。

SetAttr ' 设置隐藏并只读。

6、FileLen 函数

语法：FileLen(pathname)

功能：获取一个文件的长度，藕粉的作用与功效 单位是字节。

说明：当调用 FileLen 函数时，不需要打开文件，如果所指定的文件已经打开，则

返回的值是这个文件在打开前的大小。

7、FileDateTime 函数

语法：FileDateTime(pathname)

功能：获取一个文件被创建或最后修改后的日期和时间。

示例：

FileDateTime( '在立即窗口可看到2021-3-29 19:28:27

（二）目录处理

1、CurDir 函数

语法：CurDir[(drive)]

功能：返回当前的路径。

说明：drive 参数是可选的，它指定一个存在的驱动器。如果没有指定驱动器，或

drive 是零长度字符串 (，则 CurDir 会返回当前驱动器的路径。

示例：

CurDir ' 返回“C:/Documents and Settings/yc/My

Documents”。 CurDir( ' 返回“C:/Documents and Settings/yc/My

Documents”。 CurDir( ' 返回“D:/”。

2、ChDir 语句

语法：ChDir path

功能：改变当前的目录或文件夹。

说明：ChDir 语句改变缺省目录位置，但不会改变缺省驱动器位置。缺省驱动器一般

是C。

示例：

ChDir

CurDir ' 返回“C:/Documents and Settings/yc/My

Documents”。 CurDir( ' 返回“D:/temp”。

与上例比较，此时D盘的当前目录已经变为“D:/temp”，但是缺省驱动器还是C。

3、ChDrive 语句

语法：ChDrive drive

功能：改变当前的驱动器。

说明：如果使用零长度的字符串 (，则当前的驱动器将不会改变。如果 drive 参数

中有多个字符，则 ChDrive 只会使用首字母。

示例： ChDrive ChDir

CurDir ' 返回“D:/temp”。 CurDir( ' 返回

“D:/temp”。

与上例比较，用CurDir返回的是“D:/temp”，当前驱动器已经变为D了。

4、Dir 函数

语法：Dir[(pathname[, attributes])]

两个参数都是可选的，attributes表示文件属性。

功能：返回一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或

磁盘卷标相匹配。

说明：在第一次调用 Dir 函数时，必须指定 pathname，否则会产生错误。如果也指

定了文件属性，那么就必须包括 pathname。

Dir 会返回匹配 pathname 的第一个文件名。若想得到其它匹配 pathname 的文件名，

再一次调用 Dir，且不要使用参数。如果已没有合乎条件的文件，个人简历电子版 则 Dir 会返回一个零

长度字符串 (。一旦返回值为零长度字符串，并要再次调用 Dir 时，就必须指定

pathname，否则会产生错误。不必访问到所有匹配当前 pathname 的文件名，就可以改变

到一个新的 pathname 上。但是，不能以递归方式来调用 Dir 函数。以 vbDirectory 属

性来调用 Dir 不能连续地返回子目录。

示例：

Dir( ’返回

Dir( ’返回按条件第一个找到的文件名。 Dir(’返回

第一个只读的txt文件

以下过程可显示C盘根目录下的所有目录. Sub DirC()

MyPath =

MyName = dir(MyPath, vbDirectory) ' 找寻第一项。 Do While MyName <>

' 开始循环。 ' 跳过当前的目录及上层目录。

If MyName <>

' 使用位比较来确定 MyName 代表一目录。

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

MyName ' 如果它是一个目录，将其名称显示出来。 End

If End If

MyName = dir ' 查找下一个目录。 Loop

End Sub

以下过程利用递归可以查找目录和子目录下的所有文件。

Public Sub FindFile(mPath As String, Optional sFile As String =

On Error Resume Next

Dim s As String, sDir() As String Dim i As Long, d As Long

If Right(mPath, 1) <> mPath = mPath & End If

'查找目录下的文件

s = dir(mPath & sFile, vbArchive + vbDirectory + vbHidden + vbNormal +

vbReadOnly + vbSystem) Do While s <>

mPath & s s = dir Loop

'查找目录下的子目录

s = dir(mPath, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly

+ vbSystem) Do While s <>

If s <>

If (GetAttr(mPath & s) And vbDirectory) = vbDirectory Then d = d +

1

法国旅游攻略 ReDim Prerve sDir(d) sDir(d) = mPath & s End If End

If s = dir Loop

'开始递归 For i = 1 To d

FindFile sDir(d) & Next

End Sub

5、MkDir 语句

语法：MkDir path

功能：创建一个新的目录或文件夹。

说明：path 可以包含驱动器。如果没有指定驱动器，则 MkDir 会在当前驱动器上创

建新的目录或文件夹。

示例：

MkDir '在当前目录建立新的目录或文件夹。

6、RmDir 语句

语法：RmDir path

感谢您的阅读，祝您生活愉快。