删除文件时 VBScript 权限被拒绝

Question

首先让我说我是在 VBScript 中自学的。

我有一个充满临时文件的文件夹，我需要删除它们。

所以我在运行时创建了一个脚本，当脚本尝试删除文件时，我的权限被拒绝。 我是域管理员，但可以肯定的是我手动删除了一个文件并且没有问题。 即使我在服务器上运行脚本，我也会收到相同的消息。

我试图在这里发布我的所有代码，但我很难阅读它。 如果你能告诉我如何发布它以便你可以阅读它，请告诉我。 我看到了一些关于在第一行放置“>”的内容 put 这并不是将所有内容都放在一行上。

这是我遇到问题的部分，错误是最后一行（权限被拒绝）

设置 objFile = objFSO.GetFile(strFolder1 & "\\" & strFileName.Name) objFSO.DeleteFile myFileToDelete, True

好的，我查看了更多帮助。 即使前面有 4 个空格，我也无法缩进。 不知道如何编码，我试过了，但我无法接受它。

TIA，罗杰

Answer 1

这应该做你要问的：

Sub DeleteMyFile(myFileToDelete)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFile(myFileToDelete)
End Sub

myFileToDelete = strFolder1 & "\" & strFileName
DeleteMyFile(myFileToDelete)