大量のフォルダの中身だけを削除


こないだ仕事で大量のフォルダの中身を削除しないといけなくて、

めんどくさいのでvbsでフォルダの中身だけ削除してくれるやつ作ってD&Dでポィッ∵ゞ(´ε`●)

以外と便利かも?

普通にしてたらそんなに使う場面ないと思うんだけどね。

あとでソースメモ追記予定


そんなわけで、ソース追記。
これをメモ帳とかに貼り付けて、
適当に名前つけて拡張子を「.vbs」にしたら、
あとはフォルダごとVBSにドラッグするだけ。

そしたらフォルダの中身があぼーんしてくれる。

とはいえ、VBScriptなんて普段使わないんでソース間違えてたら教えてください。

Set folderFiles = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count = 0 Then
MsgBox "VBSに直接フォルダをドロップ"
wscript.quit
End If
For Each folderName In WScript.Arguments
If folderFiles.FolderExists(folderName) Then
For Each innerFiles In folderFiles.GetFolder(folderName).Files
innerFiles.Delete true
Next
For Each innerFiles In folderFiles.GetFolder(folderName).SubFolders
innerFiles.Delete true
Next
End If
Next
msgbox "あぼーん"

Posted in PC by prolography at 12月 15th, 2009 .
Tags: ,
海外現地オプショナルツアーなら【VELTRA(ベルトラ)】
ケンコーコム