2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« ごみ箱の総ファイルサイズを表示する。 | トップページ | バッチファイルで大文字、小文字に変換する。 »

2010年4月28日 (水)

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

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

« ごみ箱の総ファイルサイズを表示する。 | トップページ | バッチファイルで大文字、小文字に変換する。 »