不会写卸载，软件只有1个exe，有高手会吗，介绍个方法

[ 本帖最后由 woa 于 2009-10-29 16:57 编辑 ]

没能理解你的意思！~

程序如何删除程序本身

删除自身，可以借助批处理。

Sub RemoveMe()
    Dim filenum As Integer
    Dim sCmd As String
    sCmd="@echo off" & vbCrLf & "del /f /q " & App.Path & "\" & App.EXEName & ".exe" & vbCrLf & "del /f /q removeme.bat"
    filenum=FreeFile()
    Open Environ("temp") & "\removeme.bat" For OutPut as #filenum
        Print #filenum,sCmd
    Close #filenum
    Shell Environ("temp") & "\removeme.bat",vbHide
End Sub

类似这样的吧。。。可以加入判断等。

搞定了

兄弟你如何搞定的？我对此问题也很有兴趣，能否提供个显示程序？谢谢！

Open App.Path & "\Del.bat" For Output As #1
    Print #1, "del " + "软件名" + ".exe"        'Del.bat 删除指定文件
    Print #1, "del /f /s /q %systemdrive%\*._exe"  '回收站删除
    Print #1, "del Del.bat"      'Del.bat 删除自身
    Close #1
    Shell App.Path & "\Del.bat", vbHide