フォルダを自動削除したかった ― 2007年07月19日 07時19分07秒
Windowsの起動時に、昨日作ったテンポラリフォルダを空にしたい。そう思っていろんなフリーウェアを試してみたけど、なかなか「これっ」って言うのが無かったので自分で作っちゃった。
起動時に勝手に削除して、あとは知らんぷりというか削除プログラムが終了してくれればいいだけなのに、そういうのは需要がないのか、あるいは簡単に作れるから誰もフリーウェア公開しないだけか。
以下のスクリプトをremove.vbsとかいう名前でファイルに保存して、スタートアップフォルダに入れておけばOK。フォルダの中身を空にするのが面倒なので、フォルダを削除して同じ名前で作ってる。
[remove.vbs]
ここまでだって無駄な動きはほとんどしてないはずなんだけどな‥‥。あと何の時間を削れるんだろうか。フォースを抱えて歩く時間をもっと減らしてみるか、あるいはどこかで黄色ツボを割りそこなっているか。確かにB11Fで割らずに下に降りちゃってるけどさ。でも2分も‥‥?
起動時に勝手に削除して、あとは知らんぷりというか削除プログラムが終了してくれればいいだけなのに、そういうのは需要がないのか、あるいは簡単に作れるから誰もフリーウェア公開しないだけか。
以下のスクリプトをremove.vbsとかいう名前でファイルに保存して、スタートアップフォルダに入れておけばOK。フォルダの中身を空にするのが面倒なので、フォルダを削除して同じ名前で作ってる。
[remove.vbs]
Option Explicit
Dim objFileSys
Dim strRemovePath
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strRemovePath = "H:\tmp" ' ←空っぽにするフォルダ
objFileSys.DeleteFolder strRemovePath ' フォルダ削除
objFileSys.CreateFolder strRemovePath ' フォルダ作成
set objFileSys = Nothing
ゼルダを伝説
ふふふ‥‥ふははははー―だ。ラスボス前までの残り時間を23分9秒まで長くすることができた。今までの最短記録より1分も縮めた。上手な人なら25分残すことができるそうなので、あと2分か、きついな。ここまでだって無駄な動きはほとんどしてないはずなんだけどな‥‥。あと何の時間を削れるんだろうか。フォースを抱えて歩く時間をもっと減らしてみるか、あるいはどこかで黄色ツボを割りそこなっているか。確かにB11Fで割らずに下に降りちゃってるけどさ。でも2分も‥‥?
最近のコメント