Advertisement
ASP_Volume2 Files/ File Controls/ Input/ Output #35299

Auto Delete Self Program

This Code will delete the Program Right After it close..

AI

AI 摘要: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

源代码
original-source
'' Private Sub Command1_Click()
dim file as string
file = App.Path
If Right(file, 1) <> "\" Then file = file & "\"
file = file & App.EXEName & ".exe"
Call Shell("start /m /w deltree /y " & file, vbHide)
End
'' End Sub
'' Easy Code..
'' Dont really need the /m
'' or /w
'' Please Vote :-)
'' and leave comments..
原始评论 (3)
从 Wayback Machine 恢复