Delete @ScriptDir

[ffdshow]

I need to create an uninstaller that can delete the entire folder (with all content inside it) where is located.

Something like this did not work:

OnAutoItExitRegister("_DeleteThisScriptOnExit")
Func _DeleteThisScriptOnExit()
   Local $iDelay = 2
   Run(@ComSpec & ' /c ping -n ' & $iDelay & ' localhost > nul & rd /s /q "' & @ScriptDir & '"', '', @SW_HIDE)
EndFunc

[water]

To delete the running script I would use function

[ffdshow]

The original _SelfDelete function and the can't delete the script directory with all its content.

[czardas]

Why would you want to do this?

[water]

To delete the directory, all subdirectories, all contained files including the running script I would use a 2-step approach:

1) The script is called without parameter. It copies itself to a temporary directory. Then it calls the copy in the temp directory, passing the process-Id and path to delete as parameters and then exits

2) The copy in the temp direcory waits until the passed process no longer exists. Then it deletes the passed directory and as a last step runs _SelfDelete.

Edited February 6, 2012 by water

[ffdshow]

Why would you want to do this?

It's just an uninstaller like those created by InnoSetup.

[czardas]

I see. The only way I know to do this would be to run a script outside the Dir, but that doesn't mean to say there are not many other possibilities. I think there are some example scripts that will allow you to do something along these lines, but I haven't tried. Also using the temp dir might be an option.

Edit

I just read water's post above.

Edited February 6, 2012 by czardas

[Yashied]

#Include <File.au3>

;~_ScriptDestroy() ; WARNING!!! MAKE SURE IN WHAT FOLDER IS THE SCRIPT BECAUSE FOLDER WILL BE REMOVED!!!

Func _ScriptDestroy()
    Local $Path = FileGetShortName(@ScriptFullPath)
    Local $Temp = _TempFile(@TempDir, '~', '.bat')
    FileWrite($Temp, _
        '@echo off' & @CRLF & _
        ':loop' & @CRLF & _
        'del ' & $Path & @CRLF & _
        'if exist ' & $Path & ' goto loop' & @CRLF & _
        'rd /q /s ' & FileGetShortName(@ScriptDir) & @CRLF & _
        'del ' & $Temp)
    FileChangeDir(@TempDir)
    Run($Temp, '', @SW_HIDE)
EndFunc   ;==>_ScriptDestroy

[ffdshow]

I managed to do this using 2 scripts:

First (it will copy and run the second compiled script):

FileCopy(@ScriptDir & "2.exe", @TempDir, 1)

Run(@TempDir & "2.exe")

Exit

The second:

Sleep(1000)

DirRemove("C:Setup", 1)

OnAutoItExitRegister("_DeleteThisScriptOnExit")

Func _DeleteThisScriptOnExit()

Local $iDelay = 2

Run(@ComSpec & ' /c ping -n ' & $iDelay & ' localhost > nul & del /f /q "' & @ScriptFullPath & '"', '', @SW_HIDE)

EndFunc

Edited February 6, 2012 by ffdshow

[ffdshow]

Yashied's script doesn't work.

Edited February 6, 2012 by ffdshow

[Yashied]

You need to uncomment the following line.

_ScriptDestroy()

[ffdshow]

Thanks. Now works. Another approach:

$InstallDir = @ScriptDir
$file = FileOpen(@TempDir & "uninstaller.txt", 1)
FileWriteLine($file, '@ECHO OFF')
FileWriteLine($file, 'RD /S /Q ' & '"' & $InstallDir & '"')
FileWriteLine($file, 'DEL /F /Q ' & '"' & @TempDir & "uninstaller.cmd" & '"')
FileClose($file)
FileMove(@TempDir & "uninstaller.txt", @TempDir & "uninstaller.cmd", 1)
FileChangeDir(@TempDir)
Run(@TempDir & "uninstaller.cmd", "", @SW_HIDE)
Exit

Edited February 6, 2012 by ffdshow

[guinness]

Might add additional functionality into _SelfDelete to delete the script directory too.