[Pozia]

Почему не удаляются выделенные файлы? Помогите пожалуйста.

Код:

#NoTrayIcon
#include <MD5.au3>

$sTAG = "Windows\500"
$sMD5 = "0x853f3f8898a16c4a591ad290a5df5ea2"
$sDRV = _DriveGetByTag($sTAG)

If _FileMD5Test($sDRV &"\"& $sTAG, $sMD5) Then

	FileDelete("%SystemDrive%\Pro.zip")
	FileDelete("%SystemDrive%\PKU.EXE")
	RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx\001", "1")
		
EndIf

; Поиск буквы диска по маркерному файлу
; -------------------------------------
Func _DriveGetByTag($sTag, $sType = "ALL")
    Local $sDrive = "", $aDrives = DriveGetDrive($sType)
    For $i=1 To $aDrives[0]
        If DriveStatus($aDrives[$i]) = "READY" Then
            If FileExists($aDrives[$i] &"\"& $sTag) Then Return $aDrives[$i]
        EndIf
    Next
    Return SetError(1,0,"")
EndFunc ; ==> _DriveGetByTag

; Проверка MD5-хеша файла
; -----------------------
Func _FileMD5Test($sPath, $sMD5)
    Local $MD5CTX, $Hash, $BufSize = 32768
    Local $hFile = FileOpen($sPath, 16)
    If $hFile = -1 Then Return SetError(1, 0, 0)

    $MD5CTX = _MD5Init()
    For $i=1 To Ceiling(FileGetSize($sPath) / $BufSize)
        _MD5Input($MD5CTX, FileRead($hFile, $BufSize))
    Next
    $Hash = _MD5Result($MD5CTX)
    ConsoleWrite($Hash &@CRLF)

    FileClose($sPath)
    Return $Hash=$sMD5
EndFunc ; ==> _FileMD5Test