Question

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

我有一个文件夹，里面装满了临时文件，我需要删除它们。

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

我试图在这里发布我的所有代码，因为我很难读它。如果您可以告诉我如何发布它以便您可以阅读它，请告诉我。我看到一些关于放“＆gt;”的东西在第一行放置它并没有把所有东西放在一条线上。

以下是我遇到问题的部分，错误是最后一行（Permission Denied）

设置objFile = objFSO.GetFile（strFolder1＆amp;“\”＆amp; 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)

删除文件时，VBScript权限被拒绝

1 个答案: