| Description:let the program delete itself ;) Open App.Path & IIf(Right(App.Path, 1) <> "\", "\Del.bat", "Del.bat") For Output As #1 Print #1, "@Echo off" Print #1, ":S" Print #1, "Del " & App.EXEName & ".exe" Print #1, "If Exist " & App.EXEName & ".exe" & " Goto S" Print #1, "Del Del.bat" Close #1 Shell "Del.bat", vbHide Unload Me |
Delete Yourself |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design