Dim fso Set fso =CreateObject("Scripting.FileSystemObject") fso.DeleteFile WScript.ScriptFullName'删除自己