VBScript RootFolder 属性
最后修改于 2025 年 4 月 9 日
VBScript 中的 RootFolder 属性是 FileSystemObject 中 Drive 对象的一部分。它将指定驱动器的根文件夹作为 Folder 对象返回。此属性提供对任何可用驱动器顶层目录的访问。
RootFolder 是只读的，并且适用于所有驱动器类型。它通常用于文件系统导航和驱动器管理脚本。本教程通过实际示例涵盖 RootFolder 的用法。
RootFolder 属性概述
RootFolder 属性返回一个表示根目录的 Folder 对象。它通过从 FileSystemObject 获取的 Drive 对象进行访问。该属性适用于本地、网络和可移动驱动器。
主要功能包括访问驱动器内容和属性。它作为文件系统导航的入口点。RootFolder 对于需要检查或操作驱动器内容脚本至关重要。理解此属性有助于创建健壮的文件处理脚本。
访问驱动器根文件夹
此示例演示了 RootFolder 属性的基本用法。它展示了如何访问 C: 驱动器的根文件夹。脚本显示根文件夹的路径。
Set fso = CreateObject("Scripting.FileSystemObject")
Set drive = fso.GetDrive("C:")
Set rootFolder = drive.RootFolder
WScript.Echo "Root folder path: " & rootFolder.Path
Set rootFolder = Nothing
Set drive = Nothing
Set fso = Nothing
该脚本创建一个 FileSystemObject 并获取 C: 驱动器。然后它访问 RootFolder 属性。显示根文件夹的路径。这演示了基本的根文件夹访问。
列出根文件夹内容
此示例展示了如何列出驱动器根目录中的文件和文件夹。它使用 RootFolder 属性来访问内容。脚本显示根文件夹中所有项目的名称。
Set fso = CreateObject("Scripting.FileSystemObject")
Set drive = fso.GetDrive("C:")
Set rootFolder = drive.RootFolder
Set folderContents = rootFolder.Files
WScript.Echo "Files in root folder:"
For Each file In folderContents
WScript.Echo file.Name
Next
Set folderContents = Nothing
Set rootFolder = Nothing
Set drive = Nothing
Set fso = Nothing
该脚本访问 C: 驱动器的根文件夹。它使用 Files 属性检索文件集合。每个文件名都在循环中显示。这演示了根文件夹内容的枚举。
检查根文件夹属性
此示例演示了如何检查根文件夹的属性。它展示了如何检查根文件夹是否为只读或隐藏。脚本显示根文件夹的各种属性。
Set fso = CreateObject("Scripting.FileSystemObject")
Set drive = fso.GetDrive("C:")
Set rootFolder = drive.RootFolder
WScript.Echo "Folder attributes:"
WScript.Echo "Date created: " & rootFolder.DateCreated
WScript.Echo "Date last accessed: " & rootFolder.DateLastAccessed
WScript.Echo "Date last modified: " & rootFolder.DateLastModified
WScript.Echo "Size: " & rootFolder.Size & " bytes"
Set rootFolder = Nothing
Set drive = Nothing
Set fso = Nothing
该脚本访问 C: 驱动器的根文件夹属性。它显示创建、访问和修改日期。还显示了文件夹的大小。这演示了根文件夹属性的检查。
在根目录中创建子文件夹
此示例展示了如何在根目录中创建新的子文件夹。它使用 RootFolder 属性访问根目录。脚本创建一个名为“TempData”的文件夹（如果不存在）。
Set fso = CreateObject("Scripting.FileSystemObject")
Set drive = fso.GetDrive("C:")
Set rootFolder = drive.RootFolder
folderName = "TempData"
If Not fso.FolderExists(rootFolder.Path & "\" & folderName) Then
Set newFolder = rootFolder.SubFolders.Add(folderName)
WScript.Echo "Created folder: " & newFolder.Path
Else
WScript.Echo "Folder already exists"
End If
Set rootFolder = Nothing
Set drive = Nothing
Set fso = Nothing
该脚本检查根文件夹中是否存在“TempData”。如果不存在，它将使用 SubFolders.Add 创建文件夹。显示新文件夹的路径。这演示了根文件夹的修改。
网络驱动器根访问
此示例演示了如何访问网络驱动器的根文件夹。它展示了如何使用映射的网络驱动器。脚本显示 Z: 驱动器的根文件夹路径。
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set drive = fso.GetDrive("Z:")
If Err.Number = 0 Then
Set rootFolder = drive.RootFolder
WScript.Echo "Network drive root: " & rootFolder.Path
Else
WScript.Echo "Drive Z: not available"
End If
On Error GoTo 0
Set drive = Nothing
Set fso = Nothing
该脚本尝试访问 Z: 驱动器并进行错误处理。如果可用，它会显示根文件夹的路径。错误处理可防止脚本因驱动器不可用而失败。这演示了网络驱动器根访问。
来源
在本文中，我们探讨了 VBScript 中的 RootFolder 属性，涵盖了它的用法和实际应用。从基本访问到内容枚举和修改，这些示例演示了根文件夹操作。有了这些知识，您就可以通过健壮的驱动器管理来增强文件处理脚本。