Vbscript 删除权限被拒绝的文件

我遇到了一个问题，其中有许多关于堆栈溢出的条目，但没有一个解决了我的问题

我有一段代码，它试图删除文件夹中的每一个.txt文件，但我在“DeleteFile”命令中不断收到一个权限被拒绝的错误：

---

我对“C:\TEST”及其子文件夹的权限完全控制windows中存在的每个帐户。。。我能做些什么？

我已经测试了代码，它工作正常，是否值得在

错误恢复下一步
For
循环中添加
错误处理，因为它可能是导致问题的特定文件。第二个测试是您是否正确声明了
DeleteReadOnly
，因为当我从代码中删除它时，当代码到达只读.txt文件时，我也收到了“权限被拒绝”。最后，如果您更改了文件夹的权限，您是否执行了旧的忠实重新启动。
My DeleteReadOnly设置为True。。。我忘了把它贴在那里。每一个都是这样做的。。。仍然不能排除档案。这个问题让我抓狂……我怎么能在我的代码中添加一个“错误恢复下一步”？我也无法让OpenTextFile工作…@ZeldaElf
在错误恢复下一步
是VBScript的“闭嘴，我知道我在做什么”开关，所以除非你确实知道你在做什么，否则不要使用它。@Ansgar，我几乎可以肯定问题出在我的权限上。我的帐户在windows域下，尽管我是管理员，但似乎在该文件夹属性内的登录权限还不够。。。恐怕我需要手动删除文件：（您的代码不完整。请提供一个，以便人们可以尝试重现问题。同时发布准确的错误消息（包括行和错误号）。
directory = "C:\TEST\FOLDER"

Set fso = CreateObject("Scripting.FileSystemObject")
    Function DeleteTXTs
        For Each f In fso.GetFolder(directory).Files
            If LCase(fso.GetExtensionName(f)) = "txt" Then
                fso.DeleteFile("C:\TEST\FOLDER\*.txt"),DeleteReadOnly
            End If
        Next
    End Function