PureBasic Forums - English

I struggled and hacked at this for most the day trying to get it to work. Maybe someone with better knowledge could purify it a bit. You'll need to create this as an executble and put in an empty folder named C:\Test and when you run it it will vanish all traces of the EXE and the BAT that it created to remove the EXE: [EDIT] Slightly revised to make it a procedure

Randy Walker wrote: Sat Aug 30, 2025 3:14 amMaybe someone with better knowledge could purify it a bit.

There's lots of posts on how to do this. Just search.

BarryG wrote: Sat Aug 30, 2025 3:19 am There's lots of posts on how to do this. Just search.

I searched and searched, but nothing found.

One discussion from 2007 -> viewtopic.php?t=27413

@Randy:

Here are a few suggestions for improvement from me (not exhaustive):

[...]

// Edit: Code is here

Hi Kiffi... Thanks for reviewing my code. I like the way you cleaned up the bat file creation.
I thought variables inside a procedure were automatically protected so I never bother with it.
The MessageRequester was only there for demonstration purposes and should probably be removed in real practice to prevent the user from thwarting the cleanup.

Are you sure that your batch file is correct?
As far as I remember, a label must begin with a colon.
BTW: Batch files are executed line by line.
In the past, there could not be a CRLF after Del <mybatfile>.... (This may be different today.)

Axolotl wrote: Mon Sep 01, 2025 4:59 pm As far as I remember, a label must begin with a colon.

That is also how I recall it but grey matter is not what it used to be.
I've tested it several times and the executable worked flawlessly.
Create the executable and try it yourself.
Possible in my case it was fully successful on first pass and never hit the Goto command.
I checked with Meta AI and he confirmed the colon is required.
I will add to the OP -- THANKS!

Kiffi wrote: Sat Aug 30, 2025 1:51 pm @Randy:

Here are a few suggestions for improvement from me (not exhaustive):

Code: Select all

EnableExplicit; Always use!

Procedure DeleteThisEXE()
  
  Protected TrashDir$, CleanupBat$, CleanupBatString$
  Protected MessageRequesterResult, FileHandle
  
  MessageRequesterResult = MessageRequester("Proceed?", "We will attempt to delete " + ProgramFilename() + " now...", #PB_MessageRequester_YesNo | #PB_MessageRequester_Warning)
  
  If MessageRequesterResult = #PB_MessageRequester_No
    ProcedureReturn
  EndIf
  
  TrashDir$   = GetPathPart(ProgramFilename()) ; don't use GetCurrentDirectory()!
  CleanupBat$ = GetTemporaryDirectory() + "cleanup.bat"
  
  FileHandle = CreateFile(#PB_Any ,CleanupBat$, #PB_Ascii)
  
  If FileHandle
    
    CleanupBatString$ = "cd /D " + Chr(34) + TrashDir$ + Chr(34) + #CRLF$
    CleanupBatString$ + ":Repeat" + #CRLF$
    CleanupBatString$ + "del " + Chr(34) + ProgramFilename() + Chr(34) + #CRLF$
    CleanupBatString$ + "If exist " + Chr(34) + ProgramFilename() + Chr(34) + " Goto Repeat" + #CRLF$
    CleanupBatString$ + "cd /D " + Chr(34) + ".." + Chr(34) + #CRLF$
    CleanupBatString$ + "rmdir " + Chr(34) + TrashDir$ + Chr(34) + #CRLF$
    CleanupBatString$ + "del " + Chr(34) + CleanupBat$ + Chr(34) + #CRLF$
    
    WriteString(FileHandle, CleanupBatString$)
    CloseFile(FileHandle)
    
    If RunProgram(CleanupBat$, "", TrashDir$)
    EndIf
    End
    
  EndIf
  
EndProcedure

DeleteThisEXE()

Hi Kiffi ... Could you edit your post to include the full colon in front of "Repeat", like so:

CleanupBatString$ + ":Repeat" + #CRLF$

Randy Walker wrote: Mon Sep 01, 2025 6:28 pmHi Kiffi ... Could you edit your post [...]

[X] Done