How do I make a program delete itself after it runs?

[finalbegining]

Hi,
I would like to know how to make a program delete itself when it ends.
Any help would be greatly apreciated.

[chubzyko]

Try this, this will end the process properly if you click the x button of the form.

Code: Select all

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)


    If UnloadMode = 0 Then
        Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFolder ("C:\Program Files\your program folder here") 'this will delete the folder where your program is saved.
    End If

End Sub

[finalbegining]

Thanks a lot. This was just what I needed.

[chubzyko]

welcome! ^^