删除权限的DeleteFile

Question

我遇到并发布了Stack Overflow上有很多条目，但没有一个能解决我的问题。

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

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

我对“C：\ TEST”和子文件夹的权限完全可以控制Windows中存在的每个帐户......我该怎么办？

Answer 1

我已经测试了代码并且它正常工作，是否值得在On Error Resume Next循环中添加For错误处理，因为它可能是导致问题的特定文件。第二个测试是你正确地声明DeleteReadOnly，因为当我从代码中删除它时，当代码到达只读.txt文件时，我也收到了“权限被拒绝”。最后，如果你已经更改了文件夹的权限，那么你就完成了旧的忠实重启。