Collection 对象

Collection 对象是项目所组成的有序集合，可以把这个集合作为单元来引用。

说明

Collection 对象提供了简便方法，直截了当将一组相关的项目视为单一对象来引用。集合中的项目或成员被这样一个事实联系起来：它们都属于这个集合。集合的成员不一定都是同一种数据类型的。

建立集合的方法与建立其它对象的方法一样。例如：

Dim X As New Collection

一旦建立集合之后，就可以用 Add 方法添加成员，用 Remove 方法删除成员。在用 For Each...Next 语句重复整个集合时，可以用 Item 方法从集合返回特定成员。

Debug 对象

Dictionary 对象

描述

对象，用于存储数据关键字和条目对。

语法

Scripting.Dictionary

说明

Dictionary 对象与 PERL 关联数组等价。可以是任何形式的数据的条目被存储在数组中。每个条目都与一个唯一的关键字相关联。该关键字用来检索单个条目，通常是整数或字符串，可以是除数组外的任何类型。

下面的代码举例说明了如何创建一个 Dictionary 对象：

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

Drive 对象

描述

对特定磁盘驱动器或网络共享的属性提供访问。

说明

下面的代码举例说明了用 Drive 对象来访问驱动器属性：

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
    s = s & " Kbytes"
    MsgBox s
End Sub

Drives 集合

描述

所有可用驱动器的只读集合。

说明

对于可删除的驱动器，不需要将媒体插入其中，它就可以在Drives集合中显示出来。

下面的代码举例说明了如何获得 Drives 集合，以及如何用 For Each...Next 语句来访问该集合中的每个Drive：

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = Remote Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

Err 对象

含有关于运行时错误的信息。

说明

Err 对象的属性由错误的生成者来设置，这个生成者或者是 Visual Basic，或者是对象，或者是程序设计员。

Err 对象的缺省属性是 Number。因为该缺省属性可以用对象名称 Err 表示，所以不必修改以前用 Err 函数或 Err 语句书写的代码。

当运行时错误发生时，Err 对象的属性被填入明确识别错误的信息以及处理这个错误所使用的信息。为了在代码中生成运行时错误，请用 Raise 方法。

在任意形式的 Resume 或 On Error 语句之后以及在错误处理子程序内的 Exit Sub、Exit Function、或 Exit Property 语句之后，将 Err 对象的属性重新设置为零或长度为零的字符串 ("")。可使用 Clear 方法重新明确设置 Err 。

为了对系统错误和类模块生成运行时错误，要使用 Raise 方法而不使用 Error 语句。在其它代码中是否使用 Raise 方法，这要看想要返回的信息量有多大。

Err 对象是具有全局范围的固有对象。在代码中没有必要建立这些对象的实例。

File 对象

描述

提供对文件所有属性的访问。

说明

下面的代码举例说明了如何获得一个 File 对象，以及如何查看它的一个属性。

Sub ShowFileInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = f.DateCreated
    MsgBox s
End Sub

Files 集合

描述

在一个文件夹内的所有 File 对象的集合。

说明

下面的代码举例说明了如何获得一个 Files 集合，以及如何用 For Each...Next 语句来访问这个集合中的每个File：

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s & vbCrLf
    Next
    MsgBox s
End Sub

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 方法刷新缓冲区并关闭文件。

Folder 对象

描述

提供对一个文件夹所有属性的访问。

说明

下面的代码举例说明了如何获得一个 Folder 对象，以及如何返回它的一个属性：

Sub ShowFolderInfo(folderspec)
    Dim fs, f, s,
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    s = f.DateCreated
    MsgBox s
End Sub

Folders 集合

描述

包含在一个 Folder 对象内的所有 Folder 对象的集合。

说明

下面的代码举例说明了如何获得一个 Folders 集合，以及如何用 For Each...Next 语句来访问该集合中的每个Folder：

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

TextStream 对象

描述

加快对文件的顺序访问。

语法

TextStream.{property | method}

property 和 method 参数可以是和 TextStream 对象相关联的任何属性和方法。请注意，在实际应用中，TextStream 被一个变量占位符所替代，该变量占位符表示从 FileSystemObject 返回的 TextStream 对象。

说明

在下面的代码中，a 是由 FileSystemObject 的 CreateTextFile 方法返回的 TextStream 对象：

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

WriteLine 和 Close 是 TextStream 对象的两个方法。