Scripting 运行时库参考（3）

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

GetBaseName 方法

返回字符串，其中包含文件的基本名 (不带扩展名), 或者提供的路径说明中的文件夹。

object.GetBaseName(path)

参数

object

必选项。应为 FileSystemObject 的名称。

path

必选项。指定文件或文件夹的路径，要返回其组成部分的基本名。

说明

如果路径中没有任何文件或文件夹与指定的 path 参数匹配，则 GetBaseName 方法返回零长度字符串 ("")。

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

Function GetTheBase(filespec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetTheBase = fso.GetBaseName(filespec)
End Function

注意   GetBaseName 方法只能对提供 path 的字符串起作用。它不能试图分析一个路径，也不能检查指定路径是否存在。

请参阅

GetAbsolutePathName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetDrive 方法

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

object.GetDrive drivespec

参数

object

必选项。应为 FileSystemObject 的名称。

drivespec

必选项。drivespec 可以是驱动器号 (c)、带冒号的驱动器号 (c:)、带有冒号与路径分隔符的驱动器号 (c:\) 或任何指定的网络共享 (\\computer2\share1)。

说明

对于网络共享，检查并确保该网络共享存在。

若drivespec与已接受格式不一致或不存在，就会出错。为了在调用 GetDrive 方法时使用标准路径字符串，使用下列序列得到与 drivespec 相匹配的字符串：

DriveSpec = GetDriveName(GetAbsolutePathName(Path))

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

 Function ShowFreeSpace(drvPath) 
  Dim fso, d, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(fso.GetDriveName(drvPath))
  s = "Drive " & UCase(drvPath) & " - " 
  s = s & d.VolumeName  & "<BR>"
  s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0) 
  s = s & " Kbytes"
  ShowFreeSpace = s
End Function 

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetDriveName 方法

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

object.GetDriveName(path)

参数

object

必选项。应为 FileSystemObject 的名称。

path

必选项。指定路径，要返回其组成部分的驱动器名。

说明

如果无法确定驱动器，则 GetDriveName 方法返回零长度字符串 ("")。

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

 Function GetAName(DriveSpec)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetAName = fso.GetDriveName(Drivespec)
End Function

注意   GetDriveName 方法只能对提供 path 的字符串起作用。它不能试图分析一个路径，也不能检查指定路径是否存在。

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetExtensionName 方法

返回字符串，该字符串包含路径最后一个组成部分的扩展名。

object.GetExtensionName(path)

参数

object

必选项。应为 FileSystemObject 的名称。

path

必选项。指定路径，用于返回其组成部分的扩展名。

说明

对于网络驱动器，根目录 (\) 也认为是一个组成部分。

如果路径组成部分与 path 参数不匹配，则 GetExtensionName 方法返回零长度字符串 ("")。

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

Function GetAnExtension(DriveSpec) 
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetFile 方法

返回与指定路径中某文件相应的 File 对象。

object.GetFile(filespec)

参数

object

必选项。应为 FileSystemObject 的名称。

filespec

必选项。filespec 是指定文件的路径（绝对路径或相对路径）。

说明

如果指定文件不存在，则会出现错误。

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

Function ShowFileAccessInfo(filespec)
  Dim fso, f, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filespec)
  s = f.Path & "<br>"
  s = s & "Created: " & f.DateCreated & "<br>"
  s = s & "Last Accessed: " & f.DateLastAccessed & "<br>"
  s = s & "Last Modified: " & f.DateLastModified  
  ShowFileAccessInfo = s
End Function

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetFileName 方法

返回指定路径（不是指定驱动器路径部分）的最后一个文件或文件夹。

object.GetFileName(pathspec)

参数

object

必选项。应为 FileSystemObject 的名称。

pathspec

必选项。指定文件的路径（绝对路径或相对路径）。

说明

如果 pathspec 不是以已命名的文件或文件夹结束，则 GetFileName 方法返回零长度字符串 ("")。下面例子举例说明如何使用 GetFileName 方法：

下面举例说明 GetFileName 方法的用法：

 Function GetAName(DriveSpec) 
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetAName = fso.GetFileName(DriveSpec)
End Function

注意  GetFileName 方法只能对提供 path 的字符串起作用。它不能试图分析一个路径，也不能检查指定路径是否存在。

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetFolder 方法

返回与指定的路径中某文件夹相应的 Folder 对象。

object.GetFolder(folderspec)

参数

object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。folderspec 是指定文件夹的路径（绝对路径或相对路径）。

说明

如果指定文件夹不存在，则会出现错误。

下面例子举例说明如何使用 GetFolder 方法返回文件夹对象：

Sub AddNewFolder(path, folderName)
  Dim fso, f, fc, nf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(path)
  Set fc = f.SubFolders
  If folderName <> "" Then
    Set nf = fc.Add(folderName)
  Else
    Set nf = fc.Add("New Folder")
  End If
End Sub

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetParentFolderName 方法

返回字符串，该字符串包含指定的路径中最后一个文件或文件夹的父文件夹。

object.GetParentFolderName(path)

参数

object

必选项。应为 FileSystemObject 的名称。

path

必选项。指定路径，要返回文件或文件夹的父文件夹名。

说明

如果 path 参数指定的文件或文件夹无父文件夹，则 GetParentFolderName 方法返回零长度字符串 ("")。

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

  Function GetTheParent(DriveSpec) 
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetTheParent = fso.GetParentFolderName(Drivespec)
End Function

注意   GetParentFolderName 方法只能对提供 path 的字符串起作用。它不能试图分析一个路径，也不能检查指定路径是否存在。

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetSpecialFolder 方法 | GetTempName 方法

应用于：FileSystemObject 对象

GetSpecialFolder 方法

返回指定的特殊文件夹。

object.GetSpecialFolder(folderspec)

参数

object

必选项。应为 FileSystemObject 的名称。

folderspec

必选项。要返回的特殊文件夹名称。可以是“设置”部分列出的任何常数。

设置

folderspec 可为下列值：

常数	值	描述
WindowsFolder	0	Windows 文件夹，包含 Windows 操作系统安装的文件。
SystemFolder	1	System 文件夹，包含库、字体和设备驱动程序文件。
TemporaryFolder	2	Temp 文件夹，用于保存临时文件。可以在 TMP 环境变量中找到该文件夹的路径。

说明

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

Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")Function CreateTempFile 
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   tname = fso.GetTempName  
   Set tfile = tfolder.CreateTextFile(tname)
   Set CreateTempFile = tfile
End FunctionSet tempfile = CreateTempFile
tempfile.WriteLine "世界你好"
tempfile.Close

请参阅

GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetTempName 方法

应用于：FileSystemObject 对象

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