0

首先让我说我是用 VBScript 自学的。

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

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

我试图在这里发布我的所有代码，但我很难阅读它。如果您能告诉我如何发布它以便您阅读它，请告诉我。我看到了关于在第一行放一个“>”的东西 put 它不是把所有东西都放在一行上。

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

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

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

TIA，罗杰

4

1 回答 1

0

这应该可以满足您的要求：

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

myFileToDelete = strFolder1 & "\" & strFileName
DeleteMyFile(myFileToDelete)
于 2012-08-14T22:18:29.910 回答