Delete script itself

[relheob 0]

Hi,

I have a compiled script and want to delete this exe file itself after it has finsihed successfully.

How can I do this w/o rebooting or logging off?

Regards

Relheob

[buzz44 1]

Func _SelfDelete()
    Local $cmdfile
    FileDelete(@TempDir & "\scratch.cmd")
    $cmdfile = ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.cmd'
    FileWrite(@TempDir & "\scratch.cmd", $cmdfile)
    Run(@TempDir & "\scratch.cmd", @TempDir, @SW_HIDE)
EndFunc

[Ghastly_MIB 0]

Or just simple:

Win9x, ME and NT:

Run("command.exe del """ & @ScriptFullPath & """", "", "@SW_HIDE")

Win2k and newer:

Run("command.exe /c del """ & @ScriptFullPath & """", "", "@SW_HIDE")

[Jos 2,172]

Or just simple:

Win9x, ME and NT:

Run("command.exe del """ & @ScriptFullPath & """", "", "@SW_HIDE")

Win2k and newer:

Run("command.exe /c del """ & @ScriptFullPath & """", "", "@SW_HIDE")

<{POST_SNAPBACK}>

nah.. won't work because the script cannot delete itself when its still running....

[relheob 0]

Func _SelfDelete()
    Local $cmdfile
    FileDelete(@TempDir & "\scratch.cmd")
    $cmdfile = ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.cmd'
    FileWrite(@TempDir & "\scratch.cmd", $cmdfile)
    Run(@TempDir & "\scratch.cmd", @TempDir, @SW_HIDE)
EndFunc

<{POST_SNAPBACK}>

Many thanks.