お前ら、wsh使ってますか？

>>44

まあ大抵はコピペでいけるし、一回作ってしまえば
あとは面倒なことは何もないし。

あればちょっと便利なスクリプトとして、こんなんどうですか。
私はSendToに入れてます。

'中身のないフォルダの削除
'使い方 wscript.exe delfol.vbs フォルダ1 [フォルダ2...]
'フォルダを指定すると、そのサブフォルダのうち、空のサブフォルダを削除します。

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
iDel=0 : iLeft=0
For Each sArg In WScript.Arguments
If Fs.FolderExists(sArg) Then
For Each oFol In Fs.GetFolder(sArg).SubFolders
If oFol.Files.Count=0 And oFol.SubFolders.Count=0 Then
iDel=iDel+1
oFol.Delete
Else
iLeft=iLeft+1
End If
Next
End If
Next
MsgBox iDel & "個の空フォルダを削除しました。" & vbCrLf & iLeft & "個のフォルダは空ではないです。"