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    
無料ブログはココログ

« FileInfo.MediaInfo.VBS (その2) | トップページ | Windows Media エンコーダを使って、DVD-VideoからWMVへ変換する。(その2) »

2008年8月 4日 (月)

フォルダサイズを一覧表示する。

どのフォルダのサイズが大きいかを調べます。

FolderList.CMD フォルダ

@if(0)==(0) ECHO OFF
CScript.exe //NoLogo //E:JScript "%~f0" %*
GOTO :EOF
@end
var fso=new ActiveXObject("Scripting.FileSystemObject");
var Folder=fso.GetFolder(WScript.Arguments.Count()?WScript.Arguments.Item(0):".");
var TotalSize=0;
for(var e=new Enumerator(Folder.SubFolders);!e.atEnd();e.moveNext()){
  var f=e.item();
  if(f.Name!="System Volume Information"){
    var Size=f.Size;
    WScript.Echo(LPad(Size,15),f.Name);
    TotalSize+=Size;
  }
}
for(var e=new Enumerator(Folder.Files);!e.atEnd();e.moveNext()){
  var f=e.item();
  var Size=f.Size;
  WScript.Echo(LPad(Size,15),f.Name);
  TotalSize+=Size;
}
WScript.Echo(LPad(TotalSize,15),Folder.Path);
function LPad(str,n){
  str=str.toLocaleString();
  str=str.substr(0,str.length-3);
  return new Array(Math.max(n-str.length,0)+1).join(" ")+str;
}

« FileInfo.MediaInfo.VBS (その2) | トップページ | Windows Media エンコーダを使って、DVD-VideoからWMVへ変換する。(その2) »