« 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) »