Scripting 运行时库参考（2）

日期：2005-6-26 10:53:18　作者：佚名　人气： 　 　 来源：Microsoft

CreateTextFile 方法

创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。

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

参数

object

必选项。应为 FileSystemObject 或 Folder 对象的名称。

filename

必选项。字符串表达式，指明要创建的文件。

overwrite

可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。

unicode

可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。

说明

以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件：

Sub CreateAfile
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
  MyFile.WriteLine("这是一个测试。")
  MyFile.Close
End Sub

对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。

请参阅

CreateFolder 方法 | OpenAsTextStream 方法 | OpenTextFile 方法

应用于：FileSystemObject 对象 | Folder 对象

Delete 方法

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

object.Delete force

参数

object

必选项。应为 File 或 Folder 对象的名称。

force

可选项。Boolean 值。如果要删除的文件或文件夹的属性设置为只读属性，则该值为 True；否则为 False（默认）。

说明

若指定文件或文件夹不存在，错误发生。有内容的文件夹和无内容的文件夹所使用的Delete方法无异。无论有无内容，指定文件夹皆被删除。

对 File 或 Folder 应用 Delete 方法的结果与使用 FileSystemObject.DeleteFile 或 FileSystemObject.DeleteFolder 执行的操作完全相同。

下面的示例说明了方法的用法 Delete：

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Delete 

请参阅

Copy 方法 | DeleteFile 方法 | DeleteFolder 方法 | Move 方法 | OpenAsTextStream 方法

应用于：File 对象 | Folder 对象

DeleteFile 方法

删除指定的文件。

object.DeleteFile filespec[, force]

参数

object

必选项。应为 FileSystemObject 的名称。

filespec

必选项。要删除的文件名。filespec 在路径的最后一个组成部分中可包含通配符。

force

可选项。Boolean 值。如果要删除只读文件，则该值为 True；否则为 False（默认）。

说明

如果没有找到匹配文件，则会出现错误。DeleteFile 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。

下面示例说明如何使用 DeleteFile 方法：

Sub DeleteAFile(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFile(filespec)
End Sub

请参阅

CopyFile 方法 | CreateTextFile 方法 | Delete 方法 | DeleteFolder 方法 | MoveFile 方法

应用于：FileSystemObject Object

DeleteFolder 方法

删除指定的文件夹和其中的内容。

object.DeleteFolder folderspec[, force]

参数

object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。要删除的文件夹名称。folderspec 在路径的最后一个组成部分中可包含通配符。

force

可选项。Boolean 值。如果要删除只读文件夹，则该值为 True； 否则为 False（默认）。

说明

DeleteFolder 方法不能区分文件夹中是否包含内容。无论文件夹是否包含内容，都将删除该文件夹。

如果未找到匹配文件夹，则会出现错误。DeleteFolder 方法在遇到出现的第一个错误时停止。该方法不会撤消错误发生前所作的任何更改。

下面例子举例说明如何使用DeleteFolder 方法：

Sub DeleteAFolder(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  fso.DeleteFolder(filespec)
End Sub

请参阅

CopyFolder 方法 | CreateFolder 方法 | Delete 方法 | DeleteFile 方法 | MoveFolder 方法

应用于：FileSystemObject 对象

DriveExists 方法

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

object.DriveExists(drivespec)

参数

object

必选项。应为 FileSystemObject 对象的名称。

drivespec

必选项。驱动器号或指定的完整路径。

说明

对于可移动媒体驱动器，即使驱动器中没有插入媒体，DriveExists 方法仍返回 True。用 Drive 对象的 IsReady 属性确定驱动器是否就绪。

下面例子举例说明如何使用 DriveExists 方法：

 Function ReportDriveStatus(drv) 
  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.DriveExists(drv) Then
    msg = ("驱动器 " & UCase(drv) & " 存在。")
  Else
    msg = ("驱动器 " & UCase(drv) & " 不存在。")
  End If
  ReportDriveStatus = msg
End Function

请参阅

Drive 对象 | Drives 集合 | FileExists 方法 | FolderExists 方法 | GetDrive 方法 | GetDriveName 方法 | IsReady 属性

应用于：FileSystemObject 对象

Exists 方法

如果在 Dictionary 对象中存在指定键，返回 True；如果不存在，返回 False。

object.Exists(key)

参数

object

必选项. 总是 Dictionary 对象名称。

key

必选项. 在Dictionary 对象中查找的Key 值。

说明

下面例子举例说明如何使用Exists 方法：

 Function KeyExistsDemo 
  Dim d, msg              '创建一些变量。
  Set d = CreateObject("Scripting.Dictionary")
  d.Add "a", "Athens"     '添加一些键和项目。
  d.Add "b", "Belgrade"
  d.Add "c", "Cairo"
  If d.Exists("c") Then
    msg = "指定的键存在。"
  Else
    msg = "指定的键不存在。"
  End If
  KeyExistsDemo = msg
End Function

请参阅

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

应用于：Dictionary 对象

FileExists 方法

如果指定的文件存在返回 True；否则返回 False。

object.FileExists(filespec)

参数

object

必选项。应为 FileSystemObject 对象的名称。

filespec

必选项。文件名，表示要确定是否存在的文件。如果文件不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。

说明

下面例子举例说明如何使用 FileExists 方法：

 Function ReportFileStatus(filespec) 
  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(filespec)) Then
    msg = filespec & " 存在。"
  Else
    msg = filespec & " 不存在。"
  End If
  ReportFileStatus = msg
End Function

请参阅

DriveExists 方法 | FolderExists 方法 | GetFile 方法 | GetFileName 方法

应用于：FileSystemObject 对象

FolderExists 方法

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

object.FolderExists(folderspec)

参数

object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。文件夹名称，表示要确定是否存在的文件夹。如果该文件夹不在当前文件夹中，则必须提供完整路径名（绝对路径或相对路径）。

说明

下面例子举例说明如何使用 FolderExists 方法：

Function ReportFolderStatus(fldr) 
  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FolderExists(fldr)) Then
    msg = fldr & " 存在。"
  Else
    msg = fldr & " 不存在。"
  End If
  ReportFolderStatus = msg
End Function

请参阅

DriveExists 方法 | FileExists 方法 | GetFolder 方法 | GetParentFolderName 方法

应用于：FileSystemObject 对象

GetAbsolutePathName 方法

从提供的指定路径中返回完整且含义明确的路径。

object.GetAbsolutePathName(pathspec)

参数

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 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

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