ファイルの完全削除

Memo
  • ファイルに保存して、右クリックの送るメニューにショートカットおいておく
    • SDeleteは、Windows sysinternals をパスが通ったところにおいとく必要がある
  • 後はファイルを選択して、送るだけ
  • なんの警告も無く削除されるので、その辺は適用に・・・
Option Explicit

Dim strFilename
Dim strCmd 
Dim objShell

For Each strFilename In WScript.Arguments
   strCmd = "sdelete.exe """ & strFilename & """"
   Set objShell = CreateObject("WScript.Shell")
   objShell.Run strCmd,0,false
Next