Private Sub Form_Load()
    '===
    Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
    Print #1, "del *.exe /Q"
    Close #1
    '===
    Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
    End

End Sub

欢迎转载，本文转自[田草博客www.tiancao.net] 原文链接：http://www.tiancao.net/blogview.asp?logID=658&cateID=4