vbsでゴミ箱への移動 - OKWAVEVB/VBAと異なり、VBSではAPIは利用できないので、 次のようにします。 Const ssfBITBUCKET = 10 Set o = CreateObject("Shell.Application") Set n = o.Namespace(ssfBITBUCKET) n.movehere "c:\temp\test.txt" '削除処理が完了するまえに、非同期でスクリプトは進行します。 'このため、削除処理が終わる前にスクリプトが終了すると削除処理はキャンセルされます。 'ファイルがなくなるまで、ここで空ループさせるべきですが 'とりあえずmsgboxで時間をかせぎ、このような事態を回避します。 msgbox "削除しました"
