方法excel VBA - FileSystemObject 对象

FileSystemObject对象 属性方法

描述

提供对计算机文件系统的访问。

语法

Scripting.FileSystemObject

说明

下面的代码举例说明了如何使用FileSystemObject返回一个TextStream对象该对象是可读并可写的

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\testfile. txt", True)a.WriteLine("This is a test. ")a.Close

在上面列出的代码中CreateObject函数返回FileSystemObject (fs) 。CreateTextFile方法接着创建文件作为一个TextStream对象(a) 而WriteLine方法则向创建的文本文件中写入一行文本。 Close方法刷新缓冲区并关闭文件。

属性顶部方法

Drives属性

描述

返回包含本地机器上所有可用Drive对象的Drives集合。

语法object.Drivesobject总是一个FileSystemObject。

说明

对于可删除媒体驱动器来说不需要插入媒体就可使其出现在Drives集合中。可以用For Each. . .Next结构遍及Drives集合中的成员如下面的代码所示Sub ShowDriveList

Dim fs, d, dc, s, n

Set fs = CreateObject("Scripting.FileSystemObject")

Set dc = fs.Drives

For Each d in dcs = s & d.DriveLetter & " - "

If d.DriveType = 3 Thenn = d.ShareName

Elsen = d.VolumeName

End Ifs = s & n & vbCrLf

Next

MsgBox s

End Sub

BuildPath方法

描述

追加一个名字到一个已经存在的路径。

语法object.Bui ldPath(path, name)

BuildPath方法语法有如下几部分

pa th必需的。要对其追加名字的已存在路径。路径可以是绝对的也可以是相

说明

只有在需要时 BuildPath方法才在已存在路径和名字之间插入一个附加的路径分隔符。CopyFile方法

描述

把一个或多个文件从一个地方复制到另一个地方。

语法object.CopyFil e source, destination[, overwrite]

CopyFile方法语法有如下几部分

source必需的。指明一个或多个要被复制文件的字符串文件说明它可以destina tion一个或多个文件要被复制到的接受端的

说明

通配符只能用在source参数的最后一个路径部件。例如你可以在下面请况使用通配符FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"但下面情况不能使用

FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:\tempfolder"如果source包含通配符或destina tion以路径分隔符\为结尾则认为destina tion是一个已存在文件夹在其中复制相匹配的文件。否则认为destina tion是一个要创建文件的名字。不论是那种情况 当复制一个文件时可能发生三种事件。

 如果destina tion不存在 source得到复制。这是通常的情况。

 如果des tina tion是一个已存在的文件则当overwri te值为Fal se时发生一个错

误否则 source的复制文件将试图覆盖已存在文件。

 如果destina tion是一个目录发生一个错误。

如果使用通配符的source不能和任何文件匹配同样产生一个错误。 CopyFile方法停止在它遇到的第一个错误上。不要试图回卷或撤消错误发生前所做的任何改变。

CopyFolder方法

描述

从一个地方递归地复制一个文件夹到另一个地方。

语法object.CopyFolder source, destination[, overwrite]

CopyFolder方法语法有如下几部分

source必需的。指明一个或多个被复制文件夹的字符串文件夹说明可以包括通destina tion中被复制文件夹和子文件夹的接受端的字符串不说明

通配符仅可用于source参数的最后一个路径部件。例如你可以在下面情况使用它FileSystemObject.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\"

但不能在下面情况使用它

FileSystemObject.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"

如果source包含通配符或destina tion以路径分隔符\为结尾则认为destina tion是一个已存在的文件夹在其中复制相匹配的文件夹和子文件夹。否则认为destina tion是一个要创建的文件夹的名字。不论何种情况 当复制一个文件夹时可能发生四种事件。

 如果destina tion不存在 source文件夹和它所有的内容得到复制。这是通常的情

况。

 如果destina tion是一个已存在的文件则发生一个错误。

 如果destina tion是一个目录它将尝试复制文件夹和它所有的内容。如果一个包含在source的文件已在destina tion中存在当overwri te为Fal se时发生一个错误否则它将尝试覆盖这个文件。

 如果destina tion是一个只读目录当尝试去复制一个已存在的只读文件到此目录并且overwrite为False时则发生一个错误。

如果source使用的通配符不能和任何文件夹匹配也发生一个错误。

CopyFolder方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。CreateFolder方法

描述

创建一个文件夹。

语法object.CreateFolder(foldername)

CreateFolder方法有如下几部分

说明

如果指定的文件夹已经存在则发生一个错误。

CreateTextFile方法

描述

创建一个指定的文件名并且返回一个用于该文件读写的TextStream对象。

语法object.CreateTextFile(filename[, overwrite[, unicode] ])

CreateTextFile方法有如下几部分

说明

下面的代码举例说明如何使用CreateTextFile方法创建和打开文本文件。

Sub CreateAfile

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("c:\testfile. txt", True)a.WriteLine("This is a test. ")a.Close

End Sub

对于一个已经存在的filename如果overwrite参数是Fal se或者没有提供则发生一个错误。

DeleteFile方法

描述

删除一个指定的文件。

语法object.DeleteFile filespec[, force]

DeleteFile方法语法有如下几部分

。说明

如果没有发现相匹配的文件则产生一个错误。DeleteFile方法停在它遇到的第一个错误上。不要尝试回卷或撤消错误发生前所做的任何改变。

DeleteFolder方法

描述

删除一个指定的文件夹和它的内容。

语法object.DeleteFolder folderspec[, force]

DeleteFolder方法语法有如下几部分

folderspec可以在最后的路径部件中包说明

DeleteFolder方法对文件夹中有无内容不做区别。不管指定的文件夹中是否有内容它都被删除。

如果没有发现相匹配的文件夹则发生一个错误。 DeleteFolder方法停止在它遇到的第一个错误上不要尝试回卷或撤消错误发生前所做的任何改变。

DriveExists方法

描述

如果指定的驱动器存在返回True如果不存在返回False。

语法object.DriveEx ists(drivespec)

DriveExists方法语法有如下几部分

说明

对于可删除介质的驱动器即使没有介质存在 DriveExists方法也返回True。使用Drive对象的IsReady属性确定驱动器是否准备好。

FileExists方法

描述

如果指定的文件存在返回True若不存在则返回False。

语法object.FileExi sts(filespec)

FileExists方法语法有如下几部分

