Sign in to follow this  
Followers 0
ffdshow

Delete @ScriptDir

13 posts in this topic

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

Share this post


Link to post
Share on other sites



To delete the running script I would use function


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

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 by water

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Why would you want to do this?

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

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

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 by czardas

Share this post


Link to post
Share on other sites

#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

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

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 by ffdshow

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

Yashied's script doesn't work.

Edited by ffdshow

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

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 by ffdshow

Share this post


Link to post
Share on other sites

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


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0