excel VBAFileSystemObject 对象.docx
《excel VBAFileSystemObject 对象.docx》由会员分享，可在线阅读，更多相关《excel VBAFileSystemObject 对象.docx（21页珍藏版）》请在冰豆网上搜索。
excelVBAFileSystemObject对象
FileSystemObject对象属性方法
描述
提供对计算机文件系统的访问。
语法
Scripting.FileSystemObject
说明
下面的代码举例说明了如何使用FileSystemObject返回一个TextStream对象，该对象是可读并可写的：
Setfs=CreateObject（"Scripting.FileSystemObject"）
Seta=fs.CreateTextFile（"c:
\testfile.txt",True）
a.WriteLine（"Thisisatest."）
a.Close
在上面列出的代码中，CreateObject函数返回FileSystemObject（fs）。
CreateTextFile方法接着创建文件作为一个TextStream对象（a），而WriteLine方法则向创建的文本文件中写入一行文本。
Close方法刷新缓冲区并关闭文件。
属性顶部方法
属性
描述
Drives
返回包含本地机器上所有可用Drive对象的Drives集合。
Drives属性
描述
返回包含本地机器上所有可用Drive对象的Drives集合。
语法
object.Drives
object总是一个FileSystemObject。
说明
对于可删除媒体驱动器来说，不需要插入媒体，就可使其出现在Drives集合中。
可以用ForEach...Next结构遍及Drives集合中的成员，如下面的代码所示：
SubShowDriveList
Dimfs,d,dc,s,n
Setfs=CreateObject（"Scripting.FileSystemObject"）
Setdc=fs.Drives
ForEachdindc
s=s&d.DriveLetter&"-"
Ifd.DriveType=3Then
n=d.ShareName
Else
n=d.VolumeName
EndIf
s=s&n&vbCrLf
Next
MsgBoxs
EndSub
方法顶部属性
方法
描述
BuildPath
追加一个名字到一个已经存在的路径。
CopyFile
把一个或多个文件从一个地方复制到另一个地方。
CopyFolder
从一个地方递归地复制一个文件夹到另一个地方。
CreateFolder
创建一个文件夹。
CreateTextFile
创建一个指定的文件名并且返回一个用于该文件读写的TextStream对象。
DeleteFile
删除一个指定的文件。
DeleteFolder
删除一个指定的文件夹和它的内容。
DriveExists
如果指定的驱动器存在，返回True，如果不存在返回False。
FileExists
如果指定的文件存在，返回True，若不存在，则返回False。
FolderExists
如果指定的文件夹存在返回True，不存在返回False。
GetAbsolutePathName
从提供的路径说明中返回一个完整、明确的路径。
GetBaseName
返回一个包含路径中最后部件的基本名字（去掉任何文件扩展名）的字符串。
GetDrive
返回一个与指定路径中的驱动器相对应的Drive对象。
GetDriveName
返回一个包含指定路径的驱动器名字的字符串。
GetExtensionName
返回一个包含路径中最后部件扩展名的字符串。
GetFile
返回一个和指定路径中文件相对应的File对象。
GetFileName
返回指定路径中的最后部件，该路径不是驱动器说明的一部分。
GetFolder
返回一个和指定路径中文件夹相对应的Folder对象。
GetParentFolderName
返回一个包含指定路径最后部件父文件夹名字的字符串。
GetSpecialFolder
返回指定的特殊文件夹。
GetTempName
返回一个随机产生的临时文件或文件夹的名字，该名字在执行需要临时文件或文件夹的操作时有用。
MoveFile
将一个或多个文件从一个地方移动到另一个地方。
MoveFolder
将一个或多个文件夹从一个地方移动到另一个地方。
OpenTextFile
打开一个指定的文件并返回一个TextStream对象，该对象可用于对文件进行读操作或追加操作。
BuildPath方法
描述
追加一个名字到一个已经存在的路径。
语法
object.BuildPath（path,name）
BuildPath方法语法有如下几部分：
部分
描述
object
必需的。
始终是FileSystemObject的名字。
path
必需的。
要对其追加名字的已存在路径。
路径可以是绝对的也可以是相对的，不必指定一个已存在的文件夹。
name
必需的。
要追加到已存在路径上的名字。
说明
只有在需要时，BuildPath方法才在已存在路径和名字之间插入一个附加的路径分隔符。
CopyFile方法
描述
把一个或多个文件从一个地方复制到另一个地方。
语法
object.CopyFilesource,destination[,overwrite]
CopyFile方法语法有如下几部分：
部分
描述
object
必需的。
object始终是一个FileSystemObject的名字。
source
必需的。
指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。
destination
必需的。
指明source中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。
overwrite
选项的。
Boolean值，它表示存在的文件是否被覆盖。
如果是True，文件将被覆盖；如果是False，它们不被覆盖。
缺省值是True。
注意如果destination具有只读属性设置，不论overwrite值如何，CopyFile都将失败。
说明
通配符只能用在source参数的最后一个路径部件。
例如，你可以在下面请况使用通配符：
FileSystemObject.CopyFile"c:
\mydocuments\letters\*.doc","c:
\tempfolder\"
但下面情况不能使用：
FileSystemObject.CopyFile"c:
\mydocuments\*\R197.xls","c:
\tempfolder"
如果source包含通配符或destination以路径分隔符（\）为结尾，则认为destination是一个已存在文件夹，在其中复制相匹配的文件。
否则认为destination是一个要创建文件的名字。
不论是那种情况，当复制一个文件时，可能发生三种事件。
∙如果destination不存在，source得到复制。
这是通常的情况。
∙如果destination是一个已存在的文件，则当overwrite值为False时发生一个错误，否则，source的复制文件将试图覆盖已存在文件。
∙如果destination是一个目录，发生一个错误。
如果使用通配符的source不能和任何文件匹配，同样产生一个错误。
CopyFile方法停止在它遇到的第一个错误上。
不要试图回卷或撤消错误发生前所做的任何改变。
CopyFolder方法
描述
从一个地方递归地复制一个文件夹到另一个地方。
语法
object.CopyFoldersource,destination[,overwrite]
CopyFolder方法语法有如下几部分：
部分
描述
Object
必需的。
始终为一个FileSystemObject的名字。
source
必需的。
指明一个或多个被复制文件夹的字符串文件夹说明，可以包括通配符。
destination
必需的。
指明source中被复制文件夹和子文件夹的接受端的字符串，不允许有通配符。
overwrite
选项的。
Boolean值，它表示已存在的文件夹是否被覆盖。
如果为True，文件被覆盖。
如果为False，文件不被覆盖。
缺省值为True。
说明
通配符仅可用于source参数的最后一个路径部件。
例如你可以在下面情况使用它：
FileSystemObject.CopyFolder"c:
\mydocuments\letters\*","c:
\tempfolder\"
但不能在下面情况使用它：
FileSystemObject.CopyFolder"c:
\mydocuments\*\*","c:
\tempfolder\"
如果source包含通配符或destination以路径分隔符（\）为结尾，则认为destination是一个已存在的文件夹，在其中复制相匹配的文件夹和子文件夹。
否则认为destination是一个要创建的文件夹的名字。
不论何种情况，当复制一个文件夹时，可能发生四种事件。
∙如果destination不存在，source文件夹和它所有的内容得到复制。
这是通常的情况。
∙如果destination是一个已存在的文件，则发生一个错误。
∙如果destination是一个目录，它将尝试复制文件夹和它所有的内容。
如果一个包含在source的文件已在destination中存在，当overwrite为False时发生一个错误，否则它将尝试覆盖这个文件。
∙如果destination是一个只读目录，当尝试去复制一个已存在的只读文件到此目录并且overwrite为False时，则发生一个错误。
如果source使用的通配符不能和任何文件夹匹配，也发生一个错误。
CopyFolder方法停止在它遇到的第一个错误上。
不要尝试回卷错误发生前所做的任何改变。
CreateFolder方法
描述
创建一个文件夹。
语法
object.CreateFolder（foldername）
CreateFolder方法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
foldername
必需的。
字符串表达式，它标识创建的文件夹。
说明
如果指定的文件夹已经存在，则发生一个错误。
CreateTextFile方法
描述
创建一个指定的文件名并且返回一个用于该文件读写的TextStream对象。
语法
object.CreateTextFile（filename[,overwrite[,unicode]]）
CreateTextFile方法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject或Folder对象的名字。
filename
必需的。
字符串表达式，它标识创建的文件。
overwrite
可选的。
Boolean值，表示一个已存在文件是否可被覆盖。
如果可被覆盖其值为True，其值为False时不能覆盖。
如果它被省略，则已存在文件不能覆盖。
unicode
可选的。
Boolean值，表示文件是作为一个Unicode文件创建的还是作为一个ASCII文件创建的。
如果作为一个Unicode文件创建，其值为True，作为一个ASCII文件创建，其值为False。
如果省略的话，则认为是一个ASCII文件。
说明
下面的代码举例说明如何使用CreateTextFile方法创建和打开文本文件。
SubCreateAfile
Setfs=CreateObject（"Scripting.FileSystemObject"）
Seta=fs.CreateTextFile（"c:
\testfile.txt",True）
a.WriteLine（"Thisisatest."）
a.Close
EndSub
对于一个已经存在的filename，如果overwrite参数是False或者没有提供，则发生一个错误。
DeleteFile方法
描述
删除一个指定的文件。
语法
object.DeleteFilefilespec[,force]
DeleteFile方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
filespec
必需的。
要删除文件的名字。
Filespec可以在最后的路径部件中包含通配符。
force
可选的。
Boolean值，如果要删除具有只读属性设置的文件，其值为True。
如果其值为False（缺省），则不能删除具有只读属性设置的文件。
说明
如果没有发现相匹配的文件，则产生一个错误。
DeleteFile方法停在它遇到的第一个错误上。
不要尝试回卷或撤消错误发生前所做的任何改变。
DeleteFolder方法
描述
删除一个指定的文件夹和它的内容。
语法
object.DeleteFolderfolderspec[,force]
DeleteFolder方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
folderspec
必需的。
要删除的文件夹的名字。
Folderspec可以在最后的路径部件中包含通配符。
force
可选的。
Boolean值，如果要删除具有只读属性设置的文件夹，其值为True，如果值为False（缺省），则不能删除具有只读属性设置的文件夹。
说明
DeleteFolder方法对文件夹中有无内容不做区别。
不管指定的文件夹中是否有内容，它都被删除。
如果没有发现相匹配的文件夹，则发生一个错误。
DeleteFolder方法停止在它遇到的第一个错误上，不要尝试回卷或撤消错误发生前所做的任何改变。
DriveExists方法
描述
如果指定的驱动器存在，返回True，如果不存在返回False。
语法
object.DriveExists（drivespec）
DriveExists方法语法有如下几部分：
部分
描述
Object
必需的。
始终是一个FileSystemObject的名字。
Drivespec
必需的。
一个驱动器字符或一个完整的路径说明。
说明
对于可删除介质的驱动器，即使没有介质存在，DriveExists方法也返回True。
使用Drive对象的IsReady属性确定驱动器是否准备好。
FileExists方法
描述
如果指定的文件存在，返回True，若不存在，则返回False。
语法
object.FileExists（filespec）
FileExists方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
filespec
必需的。
要确定是否存在的文件的名字。
如果认为文件不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。
FolderExists方法
描述
如果指定的文件夹存在返回True，不存在返回False。
语法
object.FolderExists（folderspec）
FolderExists方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject对象的名字。
folderspec
必需的。
要确定是否存在的文件夹名字。
如果认为文件夹不在当前文件夹中，必须提供一个完整的路径说明（绝对的或相对的）。
GetAbsolutePathName方法
描述
从提供的路径说明中返回一个完整、明确的路径。
语法
object.GetAbsolutePathName（pathspec）
GetAbsolutePathName方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
pathspec
必需的。
要改变到一个完整、明确路径的路径说明。
说明
一个路径如果提供了从指定驱动器根目录的一个完整引用，则该路径是完整、明确的。
一个完整的路径如果指定一个被映射驱动器的根文件夹，它只能以路径分隔符（\）为结尾。
假设当前目录是c:
\mydocuments\reports，下面的表说明了GetAbsolutePathName方法的行为。
Pathspec
返回的路径
"c:
"
"c:
\mydocuments\reports"
"c:
.."
"c:
\mydocuments"
"c:
\\\"
"c:
\"
"c:
*.*\may97"
"c:
\mydocuments\reports\*.*\may97"
"region1"
"c:
\mydocuments\reports\region1"
"c:
\..\..\mydocuments"
"c:
\mydocuments"
GetBaseName方法
描述
返回一个包含路径中最后部件的基本名字（去掉任何文件扩展名）的字符串。
语法
object.GetBaseName（path）
GetBaseName方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
path
必需的。
要返回其基本名字的部件的路径说明。
说明
如果没有部件和path参数匹配，GetBaseName方法返回一个长度为零的字符串（""）。
注意 GetBaseName方法只对提供的path字符串起作用。
它既不试图去辨认路径，也不检查指定路径是否存在。
GetDrive方法
描述
返回一个与指定路径中的驱动器相对应的Drive对象。
语法
object.GetDrivedrivespec
GetDrive方法语法有如下几部分：
部分
描述
Object
必需的。
始终是一个FileSystemObject的名字。
Drivespec
必需的。
drivespec参数可以是一个驱动器字符（c）、一个驱动器字符加一个冒号（c:
）、一个驱动器字符加冒号和路径分隔符（c:
\）或任何网络共享的说明（\\computer2\share1）。
说明
对于网络共享，要进行检查以确保共享存在。
如果drivespec不符合任何一种可以接受的形式或者不存在，则发生一个错误。
对一个普通路径字符串调用GetDrive方法，使用下面步骤得到一个适合作为drivespec使用的字符串：
DriveSpec=GetDriveName（GetAbsolutePathName（Path））
GetDriveName方法
描述
返回一个包含指定路径的驱动器名字的字符串。
语法
object.GetDriveName（path）
GetDriveName方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
path
必需的。
要返回其驱动器名字的部件的路径说明。
说明
如果驱动器不能确定，GetDriveName方法返回一个长度为零的字符串（""）。
注意 GetDriveName方法只对提供的路径字符串起作用。
它没有尝试去辨认路径，也不对指定路径是否存在进行检查。
GetExtensionName方法
描述
返回一个包含路径中最后部件扩展名的字符串。
语法
object.GetExtensionName（path）
GetExtensionName方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
path
必需的。
.要返回其扩展名的部件的路径说明。
说明
对于网络驱动器，根目录（\）被认为是一个部件。
如果没有部件和path参数相匹配，GetExtensionName方法返回一个长度为零的字符串（""）。
GetFile方法
描述
返回一个和指定路径中文件相对应的File对象。
.
语法
object.GetFile（filespec）
GetFile方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject.的名字。
filespec
必需的。
Filespec是到一个指定文件的路径（绝对的或相对的）。
说明
如果指定的文件不存在，则发生一个错误。
GetFileName方法
描述
返回指定路径中的最后部件，该路径不是驱动器说明的一部分。
语法
object.GetFileName（pathspec）
GetFileName方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
pathspec
必需的。
到一个指定文件的路径（绝对的或相对的）。
说明
如果pathspec不是以已命名部件结尾，GetFileName方法返回一个零长度字符串（""）。
注意 GetFileName方法仅在提供的路径字符串上起作用。
它没有尝试去辨认路径，也不对指定路径是否存在进行检查。
GetFolder方法
描述
返回一个和指定路径中文件夹相对应的Folder对象。
语法
object.GetFolder（folderspec）
GetFolder方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject.的名字。
folderspec
必需的。
Folderspec是指定文件夹的路径（绝对的和相对的）。
说明
如果指定的文件夹不存在，则发生一个错误。
GetParentFolderName方法
描述
返回一个包含指定路径最后部件父文件夹名字的字符串。
语法
object.GetParentFolderName（path）
GetParentFolderName方法语法有如下几部分：
部分
描述
object
必需的。
始终是一个FileSystemObject的名字。
path
必需的。
要返回其父文件夹名字的部件的路径说明。
说明
如果path参数指定的部件没有父文件夹，则GetParentFolderName方法返回一个零长度字符串（""）。
注意 GetParentFolderName方法仅对提供的path字符串起作用。
它没有尝试去辨认路径，也不对指定路
升级会员 