VBScript递归删除文件夹时出现权限拒绝错误求助

我明白你现在遇到的麻烦——用VBScript递归删除C:\Program Files\SERVIGISTICS目录（包含EDSSolo5.8子文件夹和批处理文件）时碰到了Permission Denied的运行时错误，虽然你已经在拥有完全权限的系统上下文运行脚本，且Administrator是文件夹所有者，但还是卡壳了。先确认下你用的代码：

If oFSO.FolderExists("C:\Program Files\SERVIGISTICS")then oFSO.DeleteFolder "C:\Program Files\SERVIGISTICS", True End if

下面是几个大概率能解决问题的方向，按优先级尝试：

1. 先排查进程占用（最常见原因） #

目标目录里的文件或子文件夹很可能正在被某个进程锁定——比如EDSSolo相关的后台服务、正在运行的批处理，甚至是资源管理器的预览窗口都可能占用文件。

• 操作步骤：
  • 打开任务管理器，结束所有和SERVIGISTICS、EDSSolo相关的进程；
  • 关闭所有打开该目录的资源管理器窗口；
  • 要是找不到占用的进程，可以用微软的Process Explorer（无需安装）搜索该目录路径，直接定位到占用的进程并终止。

2. 修复文件系统权限细节 #

即使Administrator是所有者，也可能存在权限继承被破坏、特殊ACE项限制，或者UAC虚拟化的影响：

• 操作步骤：
  • 右键SERVIGISTICS文件夹→属性→安全→高级；
  • 确保Administrator的权限是完全控制，且应用范围是"该文件夹、子文件夹和文件"；
  • 勾选「替换所有子对象权限继承的权限项」，确认后重新运行脚本；
  • 别忘了，Windows Vista及以上系统必须右键脚本→以管理员身份运行，哪怕你当前是管理员账户，UAC默认会限制普通上下文的权限。

3. 优化VBScript代码，处理特殊文件属性 #

FSO对只读、系统文件的处理可能有局限，先遍历修改所有文件的属性再删除：

Set oFSO = CreateObject("Scripting.FileSystemObject")
targetFolder = "C:\Program Files\SERVIGISTICS"

If oFSO.FolderExists(targetFolder) Then
    ' 递归清除所有文件的只读、系统属性
    Sub FixFileAttributes(objFolder)
        For Each objFile In objFolder.Files
            ' 移除只读属性（属性值1）
            If objFile.Attributes And 1 Then
                objFile.Attributes = objFile.Attributes - 1
            End If
            ' 移除系统文件属性（属性值4）
            If objFile.Attributes And 4 Then
                objFile.Attributes = objFile.Attributes - 4
            End If
        Next
        ' 递归处理子文件夹
        For Each objSubFolder In objFolder.SubFolders
            FixFileAttributes objSubFolder
        Next
    End Sub
    FixFileAttributes oFSO.GetFolder(targetFolder)
    
    ' 尝试删除文件夹，捕获错误信息
    On Error Resume Next
    oFSO.DeleteFolder targetFolder, True
    If Err.Number <> 0 Then
        WScript.Echo "删除失败：" & Err.Description
        Err.Clear
    End If
    On Error GoTo 0
End If

4. 替代方案：调用CMD的rmdir命令 #

如果FSO始终搞不定，可以试试调用系统的rmdir命令，它的权限处理逻辑更灵活：

Set oShell = CreateObject("WScript.Shell")
deleteCmd = "rmdir /s /q ""C:\Program Files\SERVIGISTICS"""
' 0表示隐藏CMD窗口，True表示等待命令执行完成
oShell.Run deleteCmd, 0, True

⚠️ 注意：这个命令会强制删除整个目录，没有任何确认提示，一定要确认目标路径完全正确再用。

内容的提问来源于stack exchange，提问作者Chitrarth Sahai