ごみ箱のドライブ別の総ファイルサイズを表示する。

ごみ箱(ドライブ別)サイズ.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),,"ごみ箱(ドライブ別)"