VBS：刪除文件或文件夾時權限被拒絕

Question

這是我的代碼，它首先檢查包含安裝程序的文件夾（如果找到），運行卸載並刪除uninstall.exe（如果仍然存在）。 最后，它刪除文件夾本身。

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wshshell = wscript.CreateObject("WScript.Shell")
If objFSO.FolderExists("C:\Installer_3_00_00") Then 
    Set objFolder = objFSO.GetFolder("C:\Installer_3_00_00")
    if objFSO.FileExists("C:\Installer_3_00_00\uninstall.exe") Then
        Wshshell.run "C:\Installer_3_00_00\uninstall.exe -q"
    End if
    if objFSO.FileExists("C:\Installer_3_00_00\uninstall.exe") Then
        Set objFile=objFSO.GetFile("C:\Installer_3_00_00\uninstall.exe")
        objFile.Delete True
    End if
objFolder.Delete True
Else
End If 
Set objFSO = Nothing

問題是：它說Permission拒絕嘗試刪除文件或文件夾。 我通過手動刪除交叉檢查，它工作。 我在這個論壇上搜索過類似的問題，但沒有一個能幫助我解決這個問題。

任何建議將不勝感激。 謝謝

我嘗試在這里格式化我的代碼，但我仍然無法正確格式化。

Answer 1

您的問題很可能是由於（un）安裝程序在您嘗試刪除它時仍然運行引起的，因為此調用：

Wshshell.run "C:\Installer_3_00_00\uninstall.exe -q"

立即返回，無需等待程序完成。 將該行更改為：

Wshshell.Run "C:\Installer_3_00_00\uninstall.exe -q", 0, True