VBScript-拒绝访问

在我的工作中，我必须每隔一段时间对应用程序应用补丁。在应用补丁之前，我必须备份所有文件。在不同的文件夹中大约有几十个这样的文件。应用补丁后，我需要将所有文件恢复到补丁期间的原始原因，其中一些文件会被我不想要的默认数据覆盖

因此，如果我手动执行此操作，将非常耗时。所以我有两个脚本

首先是在补丁之前备份所有文件。我通过创建原始文件的副本并添加扩展名来备份所有文件，例如“.P123” 示例：file1.txt->file1.txt.P123 备份后，有两个文件：file1.txt和file1.txt.P123。这个剧本效果很好

第二个脚本是将文件还原回原始文件。此脚本不起作用。补丁之后。我只是简单地删除file1.txt并将file1.txt.P123重命名为file1.txt，但在我试图删除文件的那一行，我得到了“权限被拒绝”

故障排除步骤：

• 我以管理员的身份在命令提示符下运行脚本
• 我在cmd提示符下运行脚本， runas/profile/user:mydomain\locbtran“cscript.exe C:\Scripts\Test.vbs”
• 我试图将UAC修改到最低级别，但没有任何效果

如果不删除该文件，只需在我的脚本中将“file1.txt.P123”重命名为“file1.txt”。我得到“文件已经存在”

以下是我的脚本代码，用于重新命名文件：

Dim objFSO, arrBackupFiles

Dim strRenameFiles : strRenameFiles = WScript.Arguments.Item(0)

arrBackupFiles = Array(_
   "F:\Installation\ab\file1.txt", _
   "F:\Installation\cd\file2.pdf", _
   "F:\Installation\ef\file3.csv" _
)

Set objFSO = CreateObject("Scripting.FileSystemObject")


For each sFile in arrBackupFiles
   'Add new extension to existing file
   xFile = sFile & "." & strRenameFiles
   'Delete Original File
   objFSO.DeleteFile sFile
   'Rename the file 
   objFSO.MoveFile xFile, sFile
Next

---

很抱歉，您必须阅读我冗长的人生故事，但我只想在解释中说明一下。

您可以通过代码删除xFile吗？