[VBScript] 自分自身を削除するスクリプトが便利

どーもボキです。

一時ファイル名を使えば、ファイル名の重複を気にすることなく、自己削除するあと腐れないスクリプトを作れます

vbsは、実行中も自分自身のファイルを削除できるんですよ。

ですので、以下のようなコード順でもOKです。

txt.WriteLine "CreateObject(""Scripting.FileSystemObject"").DeleteFile WScript.ScriptFullName" ' 自分で後片付け

txt.WriteLine "MsgBox WScript.ScriptFullName"

この場合、一時ファイルが作られた直後に削除されますので、アイコン自体表示されません。

サンプルプログラムのダウンロードと使い方

• ダウンロード
• 使い方は、実行する、だけ。

今回開発したプログラムソース

Set objWS = CreateObject("WScript.Shell")

Set objFS = CreateObject("Scripting.FileSystemObject")

fpth = objWS.SpecialFolders("Desktop") & "\" & objFS.GetTempName & ".vbs"

Set txt = objFS.CreateTextFile(fpth)

txt.WriteLine "MsgBox WScript.ScriptFullName"

txt.WriteLine "CreateObject(""Scripting.FileSystemObject"").DeleteFile WScript.ScriptFullName" ' 自分で後片付け

txt.Close

objWS.Run fpth

にほんブログ村