VBScript CreateFolder 方法
最后修改于 2025 年 4 月 9 日
VBScript 中的 CreateFolder 方法是 FileSystemObject 的一部分。它会在指定路径创建一个新文件夹。此方法对于 VBScript 脚本中的目录管理至关重要。它返回一个 Folder 对象，代表新创建的目录。
如果文件夹已存在或路径无效，CreateFolder 将引发错误。使用此方法时应实现适当的错误处理。本教程通过实际示例介绍了 CreateFolder。
CreateFolder 方法概述
CreateFolder 方法接受一个参数：要创建的文件夹的路径。如果可能，它会在指定位置创建一个新目录。该方法需要适当的权限才能在目标位置创建文件夹。
主要功能包括自动路径解析和即时文件夹创建。如果父目录不存在，它不会创建它们。了解此方法有助于在脚本中自动化目录创建任务。
基本文件夹创建
此示例演示了 CreateFolder 创建单个目录的最简单用法。它展示了如何在指定路径创建文件夹。该脚本包含针对常见场景的基本错误处理。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "C:\Temp\NewFolder"
If Err.Number = 0 Then
WScript.Echo "Folder created successfully"
Else
WScript.Echo "Error creating folder: " & Err.Description
End If
Set fso = Nothing
该脚本创建一个 FileSystemObject 并调用 CreateFolder。在 C:\Temp 中创建文件夹 "NewFolder"。错误处理检查成功或失败。脚本报告结果。
创建嵌套文件夹
此示例展示了如何创建嵌套的文件夹结构。它演示了创建多个级别的目录。在创建子文件夹之前，必须先存在每个父文件夹。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
basePath = "C:\Projects"
fso.CreateFolder basePath
fso.CreateFolder fso.BuildPath(basePath, "Website")
fso.CreateFolder fso.BuildPath(basePath, "Website\Images")
If Err.Number = 0 Then
WScript.Echo "Folder structure created successfully"
Else
WScript.Echo "Error creating folders: " & Err.Description
End If
Set fso = Nothing
该脚本首先创建基文件夹 "C:\Projects"。然后它创建子文件夹 "Website" 和 "Website\Images"。BuildPath 方法有助于构建正确的路径。错误处理会报告任何问题。
使用当前日期创建文件夹
此示例演示了创建以当前日期命名的文件夹。它展示了基于系统日期的动态文件夹命名。日期格式确保文件夹名称可排序且唯一。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
folderName = "Backup_" & Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2)
fso.CreateFolder "C:\Backups\" & folderName
If Err.Number = 0 Then
WScript.Echo "Dated folder created: " & folderName
Else
WScript.Echo "Error creating folder: " & Err.Description
End If
Set fso = Nothing
该脚本生成一个类似 "Backup_2025-04-09" 的文件夹名称。它使用日期函数来构建名称。文件夹在 C:\Backups 中创建。错误处理确保脚本报告成功或失败。
使用用户输入创建文件夹
此示例展示了根据用户输入创建文件夹。它演示了交互式文件夹创建。该脚本提示用户输入文件夹名称。
On Error Resume Next
folderName = InputBox("Enter folder name to create in C:\Temp:")
If folderName <> "" Then
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "C:\Temp\" & folderName
If Err.Number = 0 Then
WScript.Echo "Folder created: C:\Temp\" & folderName
Else
WScript.Echo "Error: " & Err.Description
End If
Set fso = Nothing
Else
WScript.Echo "No folder name provided"
End If
该脚本使用 InputBox 获取用户输入。它在 C:\Temp 中以提供的名称创建文件夹。错误处理会捕获无效名称或权限问题。脚本提供有关操作的反馈。
创建文件夹前检查
此示例演示了在创建文件夹之前检查其是否存在。它展示了如何避免在文件夹已存在时出错。该脚本使用 FolderExists 进行首次检查。
Set fso = CreateObject("Scripting.FileSystemObject")
folderPath = "C:\Temp\TestFolder"
If Not fso.FolderExists(folderPath) Then
fso.CreateFolder folderPath
WScript.Echo "Folder created: " & folderPath
Else
WScript.Echo "Folder already exists: " & folderPath
End If
Set fso = Nothing
该脚本在尝试创建文件夹之前检查它是否存在。如果文件夹不存在，它会创建它。如果文件夹已存在，它会通知用户。此方法可防止重复创建文件夹而导致的错误。
来源
在本文中，我们探讨了 VBScript 中的 CreateFolder 方法，涵盖了其用法和实际应用。从基本文件夹创建到动态命名和用户交互，这些示例展示了强大的目录管理功能。有了这些知识，您就可以通过自动化的文件夹创建功能来增强您的脚本。