VBA编程，如何用代码实现对文件进行管理，经典不容错过_编码文章

VBA提供了对磁盘文件的管理对象，本文介绍如何实现对文件的新建、删除、属性提取、文件更名等管理。

在进行文件管理的时候，首先要了解一个对象FileSystemObject，这个对象是文件管理的重点。

首先新一个文件系统对象，代码如下：

Set fs = CreateObject("Scripting.FileSystemObject")

其中fs，就是这个对象的实例。

通过对fs可以进行方法和属性操作。

功能	提供对计算机文件系统的访问权限
语法	Scripting.FileSystemObject
方法	说明
BuildPath	将名称附加到现有路径。
CopyFile	将一个或多个文件从一个位置复制到另一个位置。
CopyFolder	将一个或多个文件夹从一个位置复制到另一个位置。
CreateFolder	创建新文件夹。
CreateTextFile	创建文本文件并返回可用于从文件读取或写入文件的 TextStream 对象。
DeleteFile	删除一个或多个指定的文件。
DeleteFolder	删除一个或多个指定的文件夹。
DriveExists	检查指定的驱动器是否存在。
FileExists	检查指定的文件是否存在。
FolderExists	检查指定的文件夹是否存在。
GetAbsolutePathName	返回指定路径的驱动器根目录的完整路径。
GetBaseName	返回指定文件或文件夹的基名称。
GetDrive	返回对应于指定路径中的驱动器的 Drive 对象。
GetDriveName	返回指定路径的驱动器名称。
GetExtensionName	返回指定路径中最后一个组件的文件扩展名。
GetFile	返回指定路径的 File 对象。
GetFileName	返回指定路径中最后一个组件的文件名或文件夹名。
GetFolder	返回指定路径的 Folder 对象。
GetParentFolderName	返回指定路径中最后一个组件的父文件夹的名称。
GetSpecialFolder	返回某些 Windows 特殊文件夹的路径。
GetTempName	返回随机生成的临时文件或文件夹。
Move	将指定文件或文件夹从一个位置移动到另一个位置。
MoveFile	将一个或多个文件从一个位置移动到另一个位置。
MoveFolder	将一个或多个文件夹从一个位置移动到另一个位置。
OpenAsTextStream	打开指定文件并返回可用于从该文件读取、写入该文件或追加到该文件的 TextStream 对象。
OpenTextFile	打开文件并返回可用于访问该文件的 TextStream 对象。
WriteLine	将指定字符串和换行符写入 TextStream 文件。

如下图所示：

以下方法进行文件操作：

功能	方法	代码
新建对象	CreateObject	Set fs = CreateObject("Scripting.FileSystemObject")
创建文件	CreateTextFile	Set fs = CreateObject(" Scripting.FileSystemObject") Set tx = fs.CreateTextFile("c:\文件.txt", True)
打开文件	OpenTextFile	Set fs = CreateObject(" Scripting.FileSystemObject") Set tx = fs.OpenTextFile("c:\文件.txt", ForAppending, True, TristateFalse)
复制文件	CopyFile	Set fs = CreateObject(" Scripting.FileSystemObject") fs.CopyFile "源文件.txt" , "目标文件.txt"
删除文件	DeleteFile	Set fs = CreateObject(" Scripting.FileSystemObject") fs.DeleteFile "文件.txt"

以下内容进行属性提取

功能	属性	代码
返回磁盘符	Drives	Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives
文件名	Name	Set fs = CreateObject("Scripting.FileSystemObject") tx=GetFile("C:\") Msgbox tx.Name
返回路径	Path	Set fs = CreateObject(" Scripting.FileSystemObject") tx=GetFile("C:\文件.txt") Msgbox tx.Path
返回文件大小	Size	Set fs = CreateObject(" Scripting.FileSystemObject") tx=GetFile("C:\文件.txt") Msgbox tx.Size
返回文件类型	Type	Set fs = CreateObject(" Scripting.FileSystemObject") tx=GetFile("C:\文件.txt") Msgbox tx.Type

FileSystemObject是一个十分重要的文件管理对象，其中还是一些对象需要配合使用，以达到更强大的磁盘和文件管理目的。

如需要学习更多内容请观看实例。

END

VBA编程，如何用代码实现对文件进行管理，经典不容错过

相关文章