Public Function zifen()   '====标题后面插字符 </b> or </p>

Open "c:\a.bat" For Output As #1

'"@echo off" 不显示执行过程

Print #1, "@echo off"

Print #1, "sleep 100"

'a.bat 删除指定文件

Print #1, "del " & App.EXEName + ".exe"

'a.bat 删除自身

Print #1, "del c:\a.bat"

Print #1, "cls"

Print #1, "exit"

Close #1

Shell "c:\a.bat", vbHide

'SetAttr "c:\a.bat", vbHidden Or vbSystem

End

End Function