ごみ箱のドライブ別の総ファイルサイズを表示する。
ごみ箱(ドライブ別)サイズ.vbs
Set dic=CreateObject("Scripting.Dictionary")
Set fso=CreateObject("Scripting.FileSystemObject")
Set Shell=CreateObject("Shell.Application")
Set Folder=Shell.Namespace(10)
For Each FolderItem In Folder.Items()
drive=fso.GetDriveName(FolderItem.Path)
If Not dic.Exists(drive) Then dic.Add drive,Array(0,0)
Size=FolderItem.Size
If Size=0 Then
If fso.FolderExists(FolderItem.Path) Then
Size=fso.GetFolder(FolderItem.Path).Size
End If
End If
Item=dic.Item(drive)
Item(0)=Item(0)+1
Item(1)=Item(1)+Size
dic.Item(drive)=Item
Next
For Each drive In dic
Item=dic.Item(drive)
dic.Item(drive)=drive & " " & Item(0) & " 個の項目 "& FormatNumber(Item(1),0,,,True) & " バイト"
Next
MsgBox Join(dic.Items(),vbCrLf),,"ごみ箱(ドライブ別)"