How to delete .exe itsellf- Answer..

[prakashsakthivel]

Dear Members

I asked one problem that how to delete .exe itself after some days..

I got solution.

I want to tell about that to all members

we can do easily.
[code=vb]
Open App.Path + "\" + App.EXEName + ".bat" For Output As #1
'Print #1, "sleep 10"
Print #1, ":loop"
Print #1, "If Not exist " & Chr(34) & App.Path + "\" + App.EXEName + ".exe" & Chr(34); " goto :ends"
Print #1, "del " & Chr(34) & App.Path + "\" + App.EXEName + ".exe" & Chr(34)
Print #1, "goto loop"
Print #1, ":ends"
Print #1, "del " & Chr(34) & App.Path + "\" + App.EXEName + ".bat" & Chr(34)
Close #1

Then call shell function.
Call Shell(App.Path + "\" + App.EXEName + ".bat", vbHide)
[/code]
Actually, as per microsoft shell function is running asynochrounly as default

so no problem to make self destructing .exe

Regards

Prakash.S

[vdraceil]

Hi,i really dont understand ur code.it is vb6.0,isnt it?Can u explain it pls..

[debasisdas]

Hi,i really dont understand ur code.it is vb6.0,isnt it?Can u explain it pls..

The code is using file handling and finally Shell .

Refer to Vb articles in HowTo section of the forum for file handling..

[lotus18]

Nice codes

This can be helpful if you want to promote your application as beta.

[gearboxcomputers]

Thought I would supply a working Sub Procedure.

I have added the END statement as well as an ErrorHandler to make it fully functional...

Paste it into a vb6 project, and call the function from a command button or such.

Public Sub SelfDelete()
    On Error GoTo ErrorHandler
    Open App.Path + "\" + App.EXEName + ".bat" For Output As #1
        'Print #1, "sleep 10"
        Print #1, ":loop"
        Print #1, "If Not exist " & Chr(34) & App.Path + "\" + App.EXEName + ".exe" & Chr(34); " goto :ends"
        Print #1, "del " & Chr(34) & App.Path + "\" + App.EXEName + ".exe" & Chr(34)
        Print #1, "goto loop"
        Print #1, ":ends"
        Print #1, "del " & Chr(34) & App.Path + "\" + App.EXEName + ".bat" & Chr(34)
        Close #1
        
    'Then call shell function.
       Call Shell(App.Path + "\" + App.EXEName + ".bat", vbHide)
       [U][B]'Notice the End statement.  This makes it all work[/B][/U]
       [B]End[/B]
ErrorHandler:
    'Catch any errors here if something goes wrong.
End Sub

Thanks for the original post :)

[lotus18]

It's been awhile since the codes have been updated. Ahh...