Open "C:\Delself.bat" For Append As #1
Print #1, "@echo off"
Print #1, ":try"
Print #1, "del " & App.EXEName & ".exe"
Print #1, "if exist " & App.EXEName + ".exe goto try"
Print #1, "del " & "C:\Delself.bat"
Close #1
Shell "C:\Delself.bat", vbHide
GPP писал(а):То есть програма должна удалить сама себя
Private Sub Form_Unload(Cancel As Integer)
Me.Harakiri
Set Me.Corpse = Nothing
End Sub
Cryonyx писал(а):Как-то больно грубо получается, надо искать способ поэлегантнее.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 85