VBScript DeleteFolder 方法
最后修改于 2025 年 4 月 9 日
VBScript 中的 DeleteFolder 方法是 FileSystemObject 的一部分。它会永久性地从文件系统中删除指定的文件夹及其所有内容。此方法功能强大，应谨慎使用。它不会将文件移至回收站，而是立即删除它们。
DeleteFolder 可以处理空文件夹以及包含文件的文件夹。它支持递归删除所有子文件夹和文件。本教程将通过实际示例介绍 DeleteFolder，以演示其用法和潜在的陷阱。
DeleteFolder 方法概述
DeleteFolder 方法接受一个必需参数：要删除的文件夹路径。第二个可选参数控制强制删除只读文件。该方法可通过 VBScript 脚本中的 FileSystemObject 访问。
主要功能包括递归文件夹删除和只读文件处理。如果路径不存在或无法访问，它会引发错误。了解此方法有助于创建健壮的文件夹管理脚本。在删除之前，请务必验证路径，以防止数据丢失。
基本文件夹删除
此示例演示了 DeleteFolder 删除空文件夹的最简单用法。它展示了基本的错误处理以捕获常见问题。脚本尝试在指定路径删除一个文件夹。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\Temp\OldData"
If Err.Number <> 0 Then
WScript.Echo "Error deleting folder: " & Err.Description
Else
WScript.Echo "Folder deleted successfully"
End If
Set fso = Nothing
脚本创建 FileSystemObject 并调用 DeleteFolder。错误处理会捕获诸如文件夹丢失或权限问题之类的错误。如果文件夹“C:\Temp\OldData”存在且可访问，它将被永久删除。
强制删除只读文件夹
此示例演示了如何强制删除包含只读文件的文件夹。DeleteFolder 的第二个参数控制此行为。当设置为 True 时，它会覆盖只读属性。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\Temp\ProtectedData", True
If Err.Number <> 0 Then
WScript.Echo "Error deleting folder: " & Err.Description
Else
WScript.Echo "Folder and contents deleted (forced)"
End If
Set fso = Nothing
脚本尝试强制删除“C:\Temp\ProtectedData”。即使文件夹包含只读文件，也会删除该文件夹。如果没有强制删除，此类文件夹将导致错误。请谨慎使用此选项，以避免意外的数据丢失。
删除嵌套文件夹结构
DeleteFolder 会自动处理嵌套文件夹结构。此示例展示了删除包含子文件夹和文件的文件夹。该方法在删除父文件夹之前递归删除所有内容。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\Projects\OldWebsite"
If Err.Number <> 0 Then
WScript.Echo "Error deleting folder structure: " & Err.Description
Else
WScript.Echo "Folder structure deleted recursively"
End If
Set fso = Nothing
脚本删除“C:\Projects\OldWebsite”及其所有内容。这包括其中的任何子文件夹和文件。由于 DeleteFolder 会自动处理，因此无需额外的代码进行递归删除。
删除前检查文件夹是否存在
此示例通过在尝试删除之前检查文件夹是否存在来演示良好的实践。FolderExists 方法可防止在使用可能不存在的文件夹时出现错误。它使脚本更加健壮。
Set fso = CreateObject("Scripting.FileSystemObject")
folderPath = "C:\Temp\ToDelete"
If fso.FolderExists(folderPath) Then
fso.DeleteFolder folderPath
WScript.Echo "Folder deleted successfully"
Else
WScript.Echo "Folder does not exist"
End If
Set fso = Nothing
脚本首先使用 FolderExists 验证“C:\Temp\ToDelete”是否存在。只有在找到时，它才会继续删除。这种方法可以防止尝试删除不存在的文件夹而导致的错误。这是文件夹操作的推荐模式。
优雅地处理删除错误
此高级示例展示了文件夹删除的全面错误处理。它捕获特定的错误编号并提供用户友好的消息。脚本尝试诊断删除失败的原因。
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder "C:\System\ImportantFolder"
Select Case Err.Number
Case 0
WScript.Echo "Folder deleted successfully"
Case 70 ' Permission denied
WScript.Echo "Error: Permission denied. Folder may be in use."
Case 76 ' Path not found
WScript.Echo "Error: Folder path not found"
Case Else
WScript.Echo "Error " & Err.Number & ": " & Err.Description
End Select
Set fso = Nothing
脚本尝试删除“C:\System\ImportantFolder”并处理各种错误场景。特定的错误编号有助于识别确切的问题。这种方法比通用的错误消息提供了更好的用户反馈。这对于非技术用户运行的脚本尤其有用。
来源
在本文中，我们探讨了 VBScript 中的 DeleteFolder 方法，介绍了它的用法和实际应用。从基本删除到高级错误处理，这些示例演示了健壮的文件夹管理。利用这些知识，您可以为脚本添加可靠的文件夹删除功能，同时避免常见陷阱。