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月27日 (火)

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

あれ、普通には出てこないようですね。一応、ごみ箱フォルダで「すべて選択」すれば出てきますが。。。

ごみ箱サイズ.vbs

Set fso=CreateObject("Scripting.FileSystemObject")
Set Shell=CreateObject("Shell.Application")
Set Folder=Shell.Namespace(10)
For Each FolderItem In Folder.Items()
  If FolderItem.Size Then
    Size=Size+FolderItem.Size
  Else
     If fso.FolderExists(FolderItem.Path) Then
        Size=Size+fso.GetFolder(FolderItem.Path).Size
     End If
  End If
Next
MsgBox Folder.Items().Count & " 個の項目 "& FormatNumber(Size,0,,,True) & " バイト",,"ごみ箱"

« スクリプトでクリップボードにテキストを設定する。 | トップページ | ごみ箱のドライブ別の総ファイルサイズを表示する。 »