Scripting 运行时库参考（9）

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

ParentFolder 属性

返回指定文件或文件夹的父文件夹。只读。

object.ParentFolder

object 应为 File 或 Folder 对象的名称。

说明

以下代码举例说明如何使用 ParentFolder 属性：

Function ShowFileAccessInfo(filespec)
    Dim fso, f, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
    s = UCase(f.Name) & " 的父文件夹为 " & UCase(f.ParentFolder) & "<BR>"
    s = s & "创建时间：" & f.DateCreated & "<BR>"
    s = s & "上次访问时间：" & f.DateLastAccessed & vbCrLf
    s = s & "上次修改时间：" & f.DateLastModified  
ShowFileAccessInfo = s
End Function

请参阅

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

应用于：File 对象 | Folder 对象

Path 属性

返回指定文件、文件夹或驱动器的路径。

object.Path

object 应为 File、Folder 或 Drive 对象的名称。

说明

对于驱动器，路径不包含根目录。例如，C 驱动器的路径是 C:，而不是 C:\。

以下代码举例说明如何使用 Path 属性：

Function ShowFileAccessInfo(filespec)
    Dim fso, d, f, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
    s = UCase(f.Path) & "<BR>"
    s = s & "创建时间：" & f.DateCreated & "<BR>"
    s = s & "上次访问时间：" & f.DateLastAccessed & "<BR>"
    s = s & "上次修改时间：" & f.DateLastModified  
ShowFileAccessInfo = s
End Function

请参阅

Attributes 属性 | AvailableSpace 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | DriveLetter 属性 | DriveType 属性 | Files 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | ShortName 属性 | ShortPath 属性 | Size 属性 | SubFolders 属性 | TotalSize 属性 | Type 属性 | VolumeName 属性

应用于：Drive 对象 | File 对象 | Folder 对象

RootFolder 属性

返回一个 Folder 对象，表示指定驱动器的根文件夹。只读。

object.RootFolder

object 应为 Drive 对象的名称。

说明

使用返回的 Folder 对象，可以访问指定驱动器包含的所有文件和文件夹。

下面例子举例说明如何使用 RootFolder 属性：

Function ShowRootFolder(drvspec)
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetDrive(drvspec)
  ShowRootFolder = f.RootFolder
End Function

请参阅

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

应用于：Drive 对象

SerialNumber 属性

返回十进制序列号，用于唯一标识一个磁盘卷。

object.SerialNumber

object 应为 Drive 对象的名称。

说明

可以使用 SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。

以下代码举例说明如何使用 SerialNumber 属性：

Function ShowDriveInfo(drvpath)
    Dim fso, d, s, t
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
    Select Case d.DriveType
        Case 0: t = "未知"
        Case 1: t = "可移动"
        Case 2: t = "固定"
        Case 3: t = "网络"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM 磁盘"
    End Select
    s = "驱动器 " & d.DriveLetter & ": - " & t
    s = s & "<BR>" & "序列号：" & d.SerialNumber
ShowDriveInfo = s
End Function

请参阅

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

应用于：Drive 对象

ShareName 属性

返回指定的驱动器的网络共享名。

object.ShareName

object 应为 Drive 对象的名称。

说明

如果 object 不是一个网络驱动器，则 ShareName 属性返回零长度字符串 ("")。

以下代码举例说明如何使用 ShareName 属性：

Function ShowDriveInfo(drvpath)
   Dim fso, d
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
   ShowDriveInfo = "Drive " & d.DriveLetter & ": - " & d.ShareName
End Function

请参阅

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

应用于：Drive 对象

ShortName 属性

返回按照早期 8.3 文件命名约定转换的短文件名。

object.ShortName

object 应为 File 或 Folder 对象的名称。

说明

以下代码举例说明如何使用 ShortName 属性：

Function ShowShortName(filespec)
    Dim fso, f, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
    s = UCase(f.Name) & "<BR>"的短文件名"
       s = s & "是：" & f.ShortName
  ShowShortName = s 
End Function

请参阅

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

应用于：File 对象 | Folder 对象

ShortPath 属性

返回按照 8.3 命名约定转换的短路径名。

object.ShortPath

object 应为 File 或 Folder 对象的名称。

说明

以下代码举例说明如何使用 ShortName 属性：

Function ShowShortPath(filespec)
    Dim fso, f, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFile(filespec)
    s = UCase(f.Name) & "<BR>"的短路径名"
    s = s & "是：" & f.ShortPath 
ShowShortPath = s 
End Function

请参阅

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

应用于：File 对象 | Folder 对象

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