Add 方法

添加一个成员到 Collection 对象。

语法

object.Add item, key, before, after

Add 方法的语法具有下列对象限定符和命名参数：

说明

before 或 after 参数是字符串表达式或数值表达式，均须引用集合中现有成员，否则将导致错误发生。

如果指定的 key 和集合中现有成员的 key 发生重复，则也会导致错误发生。

Add方法(Dictionary)

描述

添加一对相对应的关键字和条目到 Dictionary 对象。

语法

object.Add key, item

Add方法的语法有如下几部分：

说明

如果该关键字已经存在，则产生一个错误。

Add 方法(Folder)

描述

添加一个新的 Folder 到 Folders 集合。

语法

object.AddFolders folderName

AddFolders 方法的语法有如下几部分：

说明

如果 folderName 已经存在，则产生一个错误。

Assert 方法

有条件地在该方法出现的行上挂起执行。

语法

object.Assert booleanexpression

 Assert 方法的语法有如下的对象限定符和参数：

说明

Assert 调用只在开发环境中工作。当模块被编译成为一个可执行的文件时，调用 Debug 对象的方法就会被忽略。

全部 booleanexpression 常常被计算。例如，即使一个 And 表达式的第一部分被计算为 False，整个表达式还要被计算。

BuildPath 方法

描述

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

语法

object.BuildPath(path, name)

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

说明

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

Clear 方法

清除 Err 对象的所有属性设置。

语法

object.Clear

objec 总是 Err 对象。

说明

在处理错误之后使用 Clear 来清除 Err 对象，例如，在对 On Error Resume Next 使用拖延错误处理时就可使用 Clear。每当执行下列语句时就会自动调用 Clear 方法：

• 任意类型的 Resume 语句。
  
  
• Exit Sub, Exit Function, Exit Property
  
  
• 任何 On Error 语句。

注意 当处理因访问其他对象产生的错误时，与其使用 On Error GoTo，不如使用 On Error Resume Next。每一次与对象打交道之后都检查 Err，则可消除代码访问对象时的含混之处。可以确认是哪个对象将错误引入 Err.Number 中，也可以确认最初是哪个对象产生了这个错误（Err.Source 中指定的对象）。

Close 方法

描述

关闭一个打开的 TextStream 文件。

语法

object.Close

object始终是一个 TextStream 对象的名字。

Copy 方法

描述

把一个指定的文件或文件夹从一个地方复制到另一个地方。

语法

object.Copy destination[, overwrite]

Copy 方法语法有如下几部分：

说明

对一个 File 或 Folder，Copy 方法的结果和执行 FileSystemObject.CopyFile 或FileSystemObject.CopyFolder 操作的结果是一样的，在后者中， object所引用的文件或文件夹是作为参数传递的。应当注意，后面的方法能够复制多个文件或文件夹。

CopyFile 方法

描述

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

语法

object.CopyFile source, destination[, overwrite]

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

说明

通配符只能用在 source 参数的最后一个路径部件。例如，你可以在下面请况使用通配符：

FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"

但下面情况不能使用：

FileSystemObject.CopyFile "c:\mydocuments\*\R1???97.xls", "c:\tempfolder"

如果 source 包含通配符或 destination 以路径分隔符（\）为结尾，则认为 destination 是一个已存在文件夹，在其中复制相匹配的文件。否则认为 destination 是一个要创建文件的名字。不论是那种情况，当复制一个文件时，可能发生三种事件。

• 如果 destination 不存在，source 得到复制。这是通常的情况。
  
  
• 如果 destination 是一个已存在的文件，则当 overwrite 值为 False 时发生一个错误，否则，source的复制文件将试图覆盖已存在文件。
  
  
• 如果 destination 是一个目录，发生一个错误。

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

CopyFolder 方法

描述

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

语法

object.CopyFolder source, destination[, overwrite]

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

说明

通配符仅可用于 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 方法有如下几部分：

说明

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

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 参数是 False 或者没有提供，则发生一个错误。

Delete 方法

描述

删除一个指定的文件或文件夹。

语法

object.Delete force

Delete 方法语法有如下几部分：

说明

如果指定的文件或文件夹不存在，则发生一个错误。

对于一个 File 或 Folder，Delete 方法的结果和 执行 FileSystemObject.DeleteFile 或FileSystemObject.DeleteFolder 操作的结果是一样的。

Delete 方法对于文件夹内是否有内容不做区别。不管指定的文件夹是否有内容，它都被删除。

DeleteFile 方法

描述

删除一个指定的文件。

语法

object.DeleteFile filespec[, force]

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

说明

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

DeleteFolder 方法

描述

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

语法

object.DeleteFolder folderspec[, force]

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

说明

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

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

DriveExists 方法

描述

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

语法

object.DriveExists(drivespec)

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

说明

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

Exists 方法

描述

如果在 Dictionary 对象中指定的关键字存在，返回 True，若不存在，返回 False。

语法

object.Exists(key)

Exists 方法语法有如下几部分：

FileExists 方法

描述

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

语法

object.FileExists(filespec)

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

FolderExists 方法

描述

如果指定的文件夹存在返回 True，不存在返回 False。

语法

object.FolderExists(folderspec)

FolderExists 方法语法有如下几部分：

GetAbsolutePathName 方法

描述

从提供的路径说明中返回一个完整、明确的路径。

语法

object.GetAbsolutePathName(pathspec)

GetAbsolutePathName 方法语法有如下几部分：

说明

一个路径如果提供了从指定驱动器根目录的一个完整引用，则该路径是完整、明确的。一个完整的路径如果指定一个被映射驱动器的根文件夹，它只能以路径分隔符（\）为结尾。

假设当前目录是 c:\mydocuments\reports，下面的表说明了 GetAbsolutePathName 方法的行为。

GetBaseName 方法

描述

返回一个包含路径中最后部件的基本名字（去掉任何文件扩展名）的字符串。

语法

object.GetBaseName(path)

GetBaseName 方法语法有如下几部分：

说明

如果没有部件和 path 参数匹配，GetBaseName 方法返回一个长度为零的字符串（""）。

注意   GetBaseName 方法只对提供的 path 字符串起作用。它既不试图去辨认路径，也不检查指定路径是否存在。

GetDrive 方法

描述

返回一个与指定路径中的驱动器相对应的 Drive 对象。

语法

object.GetDrive drivespec

GetDrive 方法语法有如下几部分：

说明

对于网络共享，要进行检查以确保共享存在。

如果 drivespec 不符合任何一种可以接受的形式或者不存在，则发生一个错误。

对一个普通路径字符串调用 GetDrive 方法，使用下面步骤得到一个适合作为 drivespec 使用的字符串：

DriveSpec = GetDriveName(GetAbsolutePathName(Path))

GetDriveName 方法

描述

返回一个包含指定路径的驱动器名字的字符串。

语法

object.GetDriveName(path)

GetDriveName 方法语法有如下几部分：

说明

如果驱动器不能确定，GetDriveName 方法返回一个长度为零的字符串（""）。

注意   GetDriveName 方法只对提供的路径字符串起作用。它没有尝试去辨认路径，也不对指定路径是否存在进行检查。

GetExtensionName 方法

描述

返回一个包含路径中最后部件扩展名的字符串。

语法

object.GetExtensionName(path)

GetExtensionName 方法语法有如下几部分：

说明

对于网络驱动器，根目录（\）被认为是一个部件。

如果没有部件和 path 参数相匹配，GetExtensionName 方法返回一个长度为零的字符串 ("")。

GetFile 方法

描述

返回一个和指定路径中文件相对应的 File 对象。.

语法

object.GetFile(filespec)

GetFile 方法语法有如下几部分：

说明

如果指定的文件不存在，则发生一个错误。

GetFileName 方法

描述

返回指定路径中的最后部件，该路径不是驱动器说明的一部分。

语法

object.GetFileName(pathspec)

GetFileName 方法语法有如下几部分：

说明

如果 pathspec 不是以已命名部件结尾，GetFileName 方法返回一个零长度字符串（""）。

注意   GetFileName 方法仅在提供的路径字符串上起作用。它没有尝试去辨认路径，也不对指定路径是否存在进行检查。

GetFolder 方法

描述

返回一个和指定路径中文件夹相对应的 Folder 对象。

语法

object.GetFolder(folderspec)

GetFolder方法语法有如下几部分：

说明

如果指定的文件夹不存在，则发生一个错误。

GetParentFolderName 方法

描述

返回一个包含指定路径最后部件父文件夹名字的字符串。

语法

object.GetParentFolderName(path)

GetParentFolderName 方法语法有如下几部分：

说明

如果 path 参数指定的部件没有父文件夹，则 GetParentFolderName 方法返回一个零长度字符串（""）。

注意   GetParentFolderName 方法仅对提供的 path 字符串起作用。它没有尝试去辨认路径，也不对指定路径是否存在进行检查。

GetSpecialFolder 方法

描述

返回指定的特殊文件夹。

语法

object.GetSpecialFolder(folderspec)

GetSpecialFolder 方法语法有如下几部分：

设置值

folderspec 参数可为任何的下列值：

GetTempName 方法

描述

返回一个随机产生的临时文件或文件夹的名字，该名字在执行需要临时文件或文件夹的操作时有用。

语法

object.GetTempName

可选的 object 始终是一个 FileSystemObject. 的名字。

说明

GetTempName 方法不产生一个文件，它仅提供一个临时文件名字，该名字可被 CreateTextFile 用于创建一个文件。

Item 方法

利用位置或键返回 Collection 对象的指定成员。

语法

object.Item(index)

Item 方法的语法具有下列对象限定符和部分：

说明

如果 index 值无法与集合的任何现有成员匹配，就会导致错误发生。

Item 方法是集合的缺省方法。因此，以下两行程序代码等价：

Print MyCollection(1)
Print MyCollection.Item(1)

Items 方法

描述

返回一个包含 Dictionary 对象中所有条目的数组。

语法

object.Items

object始终是一个 Dictionary 对象的名字。

说明

下面的代码举例说明了 Items 方法的使用。:

Dim a, d, i             '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Items             '取得条目
For i = 0 To d.Count -1 '重复数组
    Print a(i)          '打印条目
Next
...

Keys方法

描述

返回一个数组，该数组包含一个 Dictionary 对象中的全部已有的关键字。

语法

object.Keys

object始终是一个 Dictionary 对象的名字。

说明

下面的代码举例说明了 Keys 方法的使用。

Dim a, d, i             '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.keys              '取得关键字
For i = 0 To d.Count -1 '重复数组
    Print a(i)          '打印关键字
Next
...

Move 方法

描述

将一个指定的文件或文件夹从一个地方移动到另一个地方。

语法

object.Move destination

Move 方法语法有如下几部分：

说明

Move 方法对一个 File 或 Folder 的结果和执行 FileSystemObject.MoveFile 或 FileSystemObject.MoveFolder 操作的结果是一样的。但应当注意，后面的方法能够移动多个文件或文件夹。

MoveFile 方法

描述

将一个或多个文件从一个地方移动到另一个地方。

语法

object.MoveFile source, destination

MoveFile 方法语法有如下几部分：

说明

如果 source 包含通配符或 destination 以路径分隔符 （\） 为结尾，则认为 destination 指定了一个存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为 destination 是一个要创建的目标文件名。在上面任一情况下，当移动一个文件时可能出现三种事件。

• 如果 destination 不存在，文件得到移动。这是通常的情况。
  
  
• 如果 destination 是一个已存在文件，则发生一个错误。
  
  
• 如果 destination 是一个目录，则发生一个错误。

如果一个在 source 中使用的通配符不能和任何一个文件匹配，也发生一个错误。 MoveFile 方法停止在它遇到的第一个错误上。不要尝试回卷错误发生前所做的任何改变。

重点   只有操作系统支持的情况下，这个方法才允许在卷之间移动文件。

MoveFolder 方法

描述

将一个或多个文件夹从一个地方移动到另一个地方。

语法

object.MoveFolder source, destination

MoveFolder 方法语法有如下几部分：

说明

如果 source 包含通配符或 destination 以路径分隔符 （\） 为结尾，则认为 destination 指定了一个已存在的文件夹，在此文件夹中移动相匹配的文件。否则，认为 destination 是一个要创建的目标文件夹名字。在上面的任一种情况下，当一个文件夹被移动时可能出现三种情况。

• 如果 destination 不存在，文件夹得到移动。这是通常的情况。
  
  
• 如果 destination 是一个已存在文件，则发生一个错误。
  
  
• 如果 destination 是一个目录，则发生一个错误。

如果 source 中使用的一个通配符不能和任何文件夹相匹配，也发生一个错误。MoveFolder 方法停止在它遇到的第一个错误上。不要尝试回卷在错误发生前所做的任何改变。

重点   只有在操作系统支持的情况下，这个方法才允许文件夹在卷之间移动。

OpenAsTextStream 方法

描述

打开一个指定的文件并返回一个 TextStream 对象，该对象可用来对文件进行读、写、追加操作。

语法

object.OpenAsTextStream([iomode, [format]])

OpenAsTextStream 方法语法有如下几部分：

设置值

iomode 参数可为下面设置值中的任何值：

Format 参数可为下面设置值中的任何值：

说明

OpenAsTextStream 方法提供了和 FileSystemObject. 的 OpenTextFile 方法相同的功能。此外，OpenAsTextStream 方法还可以用于对一个文件进行写操作。

下面的代码举例说明了 OpenAsTextStream 方法的使用：

Sub TextStreamTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Const TristateUseDefault = -2, TristateTrue = -1,
TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "test1.txt"            '创建一个文件
    Set f = fs.GetFile("test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Hello World"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close
End Sub

OpenTextFile 方法

描述

打开一个指定的文件并返回一个 TextStream 对象，该对象可用于对文件进行读操作或追加操作。

语法

object.OpenTextFile(filename[, iomode[, create[, format]]])

OpenTextFile 方法有如下几部分：

设置值

iomode 参数可为下面设置值的任何一个：

Format 参数可为下面设置值的任何值：

说明

下面的代码举例说明了使用 OpenTextFile 方法打开一个用于追加文本的文件：

Sub OpenTextFileTest
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
    f.Write "Hello world!"
    f.Close
End Sub

Print 方法

在 Immediate 窗口中显示文本。

语法

object.Print [outputlist]

Print 方法的语法具有下列对象限定符和部分：

outputlist 参数具有以下语法和部分：

{Spc(n) | Tab(n)} expression charpos

说明

可以用空白或分号来分隔多个表达式。

对系统指定的国别设置，用小数点分隔符将所有打印到 Immediate 视窗的数据正确格式化。关键字要用适用于主应用程序的语言输出。

对于 Boolean 数据，或者打印 True 或者打印 False。根据主机应用程序的地区设置来翻译 True 和 False 关键字。

使用系统能识别的标准短日期格式书写 Date 数据。当日期或时间部件丢失或为零时，只书写已提供的部件。

如果 outputlist 数据是 Empty，则无内容可写。但是，如果 outputlist 数据是 Null，则输出 Null。在输出 Null 关键字时，要把关键字正确翻译出来。

要把错误数据作为 Error errorcode 输出。在输出 Error 关键字时，要把关键字正确翻译出来。

如果在具有缺省显示空间的模块外使用此方法，则需要 object。例如，如果没有指定对象就在标准模块上调用此方法，则将导致错误发生，但是，如果在窗体模块上进行调用，则会在窗体上显示“outputlist”。

注意 因为 Print 方法是按照字符比例进行打印，所以字符数与字符所占据的宽度固定的列的数目无关。例如，像 “W” 这样的宽字母占据的宽度超过一固定列宽，而像 "i" 这样的窄字母占据的宽度则较小。考虑到要使用比平均字符更宽的空间，表列一定要留有足够余地。另外，也可以使用固定间距的字体（像 Courier 字体）来确保每一字符均只占一列。

Raise 方法

产生运行时错误。

语法

object.Raise number, source, description, helpfile, helpcontext

Raise 方法具有下列对象限定符和命名参数：

说明

除了 number 之外，所有参数都是可选的。如果使用 Raise 而不指定一些参数，并且 Err 对象的属性设置含有未清除的值，则视这些值为错误的值。

Raise 被用来生成运行时错误，并可用来代替 Error 语句。当书写类模块时要生成错误，Raise 是有用的，因为 Err 对象比 Error 语句可能提供更丰富的信息。例如，用 Raise 方法，可以在 Source 属性中说明生成错误的来源，可以引用该错误的联机帮助。

Read 方法

描述

从一个 TextStream 文件中读取指定数量的字符并返回得到的字符串。

语法

object.Read(characters)

Read 方法语法有如下几部分：

ReadAll 方法

描述

读取整个的 TextStream 文件并返回得到的字符串。

语法

object.ReadAll

object 始终是一个 TextStream 对象的名字。

说明

对于大的文件，使用 ReadAll 方法浪费内存资源。应使用其它的技术去输入一个文件，比如一行一行地读取文件。

ReadLine 方法

描述

从一个 TextStream 文件读取一整行（到换行符但不包括换行符）并返回得到的字符串。

语法

object.ReadLine

object参数始终是一个 TextStream 对象的名字。

Remove 方法

把成员从 Collection 对象中删除。

语法

object.Remove index

Remove 方法的语法具有下列对象限定符和部分：

说明

如果 index 的值与集合的现有成员不匹配，则会导致错误发生。

Remove 方法

描述

从一个 Dictionary 对象中删除一个关键字和条目对。

语法

object.Remove(key)

Remove 方法语法有如下几部分：

说明

如果指定的关键字和条目对不存在，则发生一个错误。

下面的代码举例说明了 Remove 方法的使用：

Dim a, d, i             '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
a = d.Remove()          '删除第二对

RemoveAll 方法

描述

RemoveAll 方法从 Dictionary 对象中删除所有关键字和条目对。

语法

object.RemoveAll

object始终是一个 Dictionary 对象的名字。

说明

下面的代码举例说明了 RemoveAll 方法的用法：

Dim a, d, i             '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"     '添加一些关键字和条目
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
a = d.RemoveAll         '清除字典

Skip 方法

描述

当读一个 TextStream 文件时跳过指定数量的字符。

语法

object.Skip(characters)

Skip 方法语法有下面几部分：

说明

跳过的字符被放弃。

SkipLine 方法

描述

当读一个 TextStream 文件时跳过下一行。

语法

object.SkipLine

object始终是一个 TextStream 对象的名字。

说明

跳过一行是指读取并放弃一行中的所有字符，一直到并包括该行的换行符。

如果读的文件没有打开，则产生一个错误。

Write 方法

描述

写一个指定的字符串到一个 TextStream 文件。

语法

object.Write(string)

Write 方法语法有如下几部分：

说明

指定的字符串被写入到文件中，在每个字符串之间没有插入空格或字符。使用 WriteLine 方法写入一个换行符或一个以换行符为结尾的字符串。

WriteBlankLines 方法

描述

写入指定数量的换行符到一个 TextStream 文件中。

语法

object.WriteBlankLines(lines)

WriteBlankLines 方法语法有如下几部分：

WriteLine 方法

描述

写入一个指定的字符串和换行符到一个 TextStream 文件中。.

语法

object.WriteLine([string])

WriteLine 方法语法有如下几部分：