Scripting 运行时库参考（6）

日期：2005-6-26 11:00:21　作者：佚名　人气： 　 　 来源：Microsoft

Dictionary

保存数据键和项目对的对象。

说明

Dictionary 对象与 PERL 关联数组是等价的。项目（可以是任何形式的数据）被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目，通常是整数或字符串，但不能为数组。

下面代码示范如何创建 Dictionary 对象：

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

属性

CompareMode 属性 | Count 属性 | Item 属性 | Key 属性

方法

Add 方法(Dictionary) | Exists 方法 | Items 方法 | Keys 方法 | Remove 方法 | RemoveAll 方法

请参阅

FileSystemObject 对象 | TextStream 对象

Drive 对象

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

说明

以下代码举例说明如何使用 Drive 对象访问驱动器的属性：

Function ShowFreeSpace(drvPath)
Dim fso, d, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set d = fso.GetDrive(fso.GetDriveName(drvPath))
    s = "驱动器 " & UCase(drvPath) & " - " 
    s = s & d.VolumeName  & "<BR>"
    s = s & "可用空间： " & FormatNumber(d.FreeSpace/1024, 0) 
s = s & "KB"
ShowFreeSpace = s
End Function

属性

AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性

方法

Drive 对象无任何方法。

请参阅

Drives 集合 | File 对象 | Files 集合 | Folder 对象 | Folders 集合 | GetDrive 方法

Drives 集合

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

说明

无论是否插入媒体，可移动媒体驱动器都显示在 Drives 集合中。

以下代码举例说明如何获得 Drives 集合并使用 For Each...Next 语句枚举集合成员：

ShowDriveList 函数
    Dim fso, d, dc, s, n
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dc = fso.Drives
    For Each d in dc
     n = ""
   s = s & d.DriveLetter & " - " 
        If d.DriveType = Remote Then
            n = d.ShareName
        ElseIf d.IsReady Then
            n = d.VolumeName
        End If
        s = s & n &"<BR>" 
    Next
   ShowDriveList = s
End Function

属性

Count 属性 | Item 属性

方法

Drives 集合无任何方法。

请参阅

Drive 对象 | Drives 属性 | File 对象 | Files 集合 | Folder 对象 | Folders 集合

File 对象

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

说明

以下代码举例说明如何获得一个 File 对象并查看它的属性：

 Function ShowDateCreated(filespec)
   Dim fso,f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
  ShowDateCreated = f.DateCreated
End Function

属性

Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | Type 属性

方法

Copy 方法 | Delete 方法 | Move 方法 | OpenAsTextStream 方法

请参阅

Drive 对象 | Drives 集合 | Files 集合 | Folder 对象 | Folders 集合

Files 集合

文件夹中所有 File 对象的集合.

说明

以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员： 

Function ShowFolderList(folderspec)
    Dim fso, f, f1, fc, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s & "<BR>"
    Next
    ShowFolderList = s
End Function

属性

Count 属性 | Item 属性

方法

Files 集合无任何方法。

请参阅

Drive 对象 | Drives 集合 | File 对象 | Folder 对象 | Folders 集合

FileSystemObject 对象

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

说明

以下代码举例说明如何使用 FileSystemObject 对象返回一个 TextStream 对象，此对象可以被读取或写入：

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

以前代码中，CreateObject 函数返回 FileSystemObject 对象 (fso)。CreateTextFile 方法创建一个文件作为 TextStream 对象 (a)，然后 WriteLine 方法在此文件中写入一行文本。最后 Close 方法刷新缓冲区并关闭文件。

属性

Drives 属性

方法

BuildPath 方法 | CopyFile 方法 | CopyFolder 方法 | CreateFolder 方法 | CreateTextFile 方法 | DeleteFile 方法 | DeleteFolder 方法 | DriveExists 方法 | FileExists 方法 | FolderExists 方法 | GetAbsolutePathname 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法 | MoveFile 方法 | MoveFolder 方法 | OpenTextFile 方法

请参阅

CreateObject 函数 | Dictionary 对象 | Drive 对象 | Drives 集合 | File 对象 | FileSystem 属性 | Files 集合 | Folder 对象 | Folders 集合 | TextStream 对象

Folder 对象

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

说明

以下代码举例说明如何获得 Folder 对象并查看它的属性：

Function ShowDateCreated(folderspec)
    Dim fso, f, 
    Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
  ShowDateCreated = f.DateCreated
End Function

属性

Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name Property | ParentFolder 属性 | Path Property | ShortName 属性 | ShortPath 属性 | Size 属性 | SubFolders 属性 | Type 属性

方法

Copy 方法 | Delete 方法 | Move 方法 | CreateTextFile 方法

请参阅

Drive 对象 | Drives 集合 | File 对象 | Files 集合 | Folders 集合

Folders 集合

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

说明

以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员：

 Function ShowFolderList(folderspec) 
    Dim fso, f, f1, fc, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.name 
        s = s & "<BR>"
    Next
    ShowFolderList = s
End Function

属性

Count 属性 | Item 属性

方法

Add 方法

请参阅

Drive 对象 | Drives 集合 | File 对象 | Files 集合 | Folder 对象 | SubFolders 属性

下一篇：Scripting 运行时库参考（5）