Ferdy个人空间

    '建立批处理
    Open App.Path & "\a.bat" For Output As #1
    '"@echo off" 不显示执行过程
    Print #1, "@echo off"
    Print #1, "sleep 2"
    'a.bat 删除指定文件
    Print #1, "del /f /q " & App.EXEName + ".exe"
    'a.bat 删除自身
    Print #1, "del /f /q a.bat"
    Print #1, "cls"
    Print #1, "exit"
    Close #1
    '隐藏模式运行批处理
    Shell App.Path & "\a.bat", vbHide
    End