JScript / VBScript : 指定したフォルダ内のフォルダ毎の使用済みサイズを読める範囲でレポートする

▼ JScript のダウンロード


▼ VBScript のダウンロード





System Volume Information は、無駄に使われてる場合が多いそうです。( 今日 5G 削除しました  )
 参考ページ

show-folders-size.js

// ************************************************
// カンマ編集
// ************************************************
String.prototype.number_format = 
function (prefix) {
        var num = this.valueOf();
        prefix = prefix || '';
        num += '';
        var splitStr = num.split('.');
        var splitLeft = splitStr[0];
        var splitRight = splitStr.length > 1 ? '.' + splitStr[1] : '';
        var regx = /(\d+)(\d{3})/;
        while (regx.test(splitLeft)) {
                splitLeft = splitLeft.replace(regx, '$1' + ',' + '$2');
        }
        return prefix + splitLeft + splitRight;
}
 
// ************************************************
// オブジェクト
// ************************************************
var Shell = new ActiveXObject("Shell.Application");
var WshShell = new ActiveXObject("WScript.Shell");
var Fso = new ActiveXObject( "Scripting.FileSystemObject" );
 
// ************************************************
// 管理者権限のコマンドプロンプトで再実行
// ************************************************
if ( WScript.Arguments.length == 0 ) {
        Shell.ShellExecute( "cmd.exe", "/c cscript.exe " + Dd(WScript.ScriptFullName) + " next" + " & pause", "", "runas", 1 );
        WScript.Quit();
}
 
 
var target = SelectDir( "対象フォルダを選択して下さい" )
if ( target == "" ) {
        WScript.Quit();
}
 
WScript.Echo( target )
 
// ************************************************
// フォルダオブジェクト取得
// ************************************************
var objFolder =  Fso.GetFolder(target)
 
var folderCollection = new Enumerator(objFolder.SubFolders);
 
var TargetSize = 0;
var obj;
var num;
var line;
for ( ;!folderCollection.atEnd(); folderCollection.moveNext()) {
 
        obj = folderCollection.item();
         
        try {
                num = Math.floor(obj.Size / 1024) / 1024;
                num = Math.floor( num * 1000 ) / 1000
                line = Lpad(("" + num).number_format()," ", 15) + " M : " + obj.Name
                WScript.Echo( line );
 
                // フォルダ全体の合計
                TargetSize = TargetSize + obj.Size
        }
        catch(e) {
                WScript.Echo( obj.Name + " : 処理できません");
        }
 
}
 
WScript.Echo( "" );
 
num = Math.floor(TargetSize / 1024) / 1024;
num = Math.floor( num * 1000 ) / 1000
line = Lpad(("" + num).number_format()," ", 15) + " M : " + "表示合計"
WScript.Echo( line );
 
// ************************************************
// ディレクトリ選択
// ************************************************
function SelectDir( strTitle ) {
 
        var obj
 
        obj = Shell.BrowseForFolder( 0, strTitle, 0x4B, 0 )
        if ( obj == null ) {
                return "";
        }
        if ( !obj.Self.IsFileSystem ) {
                ErrorMessage = "ファイルシステムではありません";
                return "";
        }
 
        return obj.Self.Path;
 
}
 
// ************************************************
// ダブルクォートで囲む
// ************************************************
function Dd( strValue ) {
 
        return "\"" + strValue + "\""
 
}
 
// ************************************************
// 指定数、指定文字列左側を埋める
// ※少数以下３桁の調整
// ************************************************
function Lpad( strValue, str, nLen ) {
 
        var i;
        var wk = "";
 
        for( i = 0; i < nLen; i++ ) {
                wk += str;
        }
         
        var test = strValue.split(".");
        if ( test.length == 2 ) {
                if ( test[1].length == 0 ) {
                        strValue += "000"
                }
                if ( test[1].length == 1 ) {
                        strValue += "00"
                }
                if ( test[1].length == 2 ) {
                        strValue += "0"
                }
        }
        else {
                strValue += ".000"
        }
 
        return ( wk + strValue ).slice( nLen * -1 );
 
}

show-folders-size.vbs

' ************************************************
' 管理者権限で実行用
' ************************************************
Set Shell = CreateObject( "Shell.Application" )
 
' ************************************************
' 管理者権限で再実行
' ************************************************
if Wscript.Arguments.Count = 0 then
        Shell.ShellExecute "cmd.exe", "/c cscript.exe " & Dd(WScript.ScriptFullName) & " next" & " & pause", "", "runas", 1
        Wscript.Quit
end if
 
' ************************************************
' 除外フォルダ名を スペースで区切って並べる
' (簡易的な除外)
' ************************************************
Dim Exclude
Exclude = ".gem"
Exclude = Lcase(Exclude)
 
' ************************************************
' 処理用
' ************************************************
Set WshShell = CreateObject( "WScript.Shell" )
Set Fso = CreateObject( "Scripting.FileSystemObject" )
 
Dim target
 
' ************************************************
' 対象フォルダを選択
' ************************************************
target = SelectDir( "対象フォルダを選択して下さい" )
if target = "" then
        Wscript.Quit
end if
 
Wscript.Echo target
Wscript.Echo
 
' ************************************************
' フォルダオブジェクト取得
' ************************************************
Set objFolder =  Fso.GetFolder(target)
 
' ************************************************
' サブフォルダコレクション取得
' ************************************************
Set colSubFolder =  objFolder.SubFolders
 
' ************************************************
' 一覧
' ************************************************
Dim TargetSize : TargetSize = 0
For Each obj in colSubFolder
 
        Do While true
 
                if InStr(Exclude,Lcase(obj.Name)) > 0 then
                        Exit Do
                end if
 
                on error resume next
                Wscript.Echo Lpad(FormatNumber((Fix(obj.Size / 1024) / 1024),3)," ", 15) & " M : " & obj.Name
                if Err.Number <> 0 then
                        Wscript.Echo "                  ( " & obj.Name & " : 処理できません )"
                else
                        TargetSize = TargetSize + obj.Size
                end if
                on error goto 0
 
 
                Exit Do
        Loop
 
 
Next
 
Wscript.Echo
 
Dim AllSize
Dim er : er = 0
on error resume next
AllSize = objFolder.Size
if Err.Number <> 0 then
        er = 1
        AllSize = TargetSize
end if
on error goto 0
 
 
Wscript.Echo Lpad(FormatNumber((Fix(TargetSize / 1024) / 1024),3)," ", 15) & " M : " & "表示合計"
 
if er = 1 then
        Wscript.Echo "                  ( " & target & " のサイズは取得できませんでした )"
else
        Wscript.Echo Lpad(FormatNumber((Fix(AllSize / 1024) / 1024),3)," ", 15) & " M : " & target & " のサイズ"
end if
 
Dim fsize : fsize = 0
For Each file in objFolder.files
        fsize = fsize + file.size
Next
Wscript.Echo Lpad(FormatNumber((Fix((fsize) / 1024) / 1024),3)," ", 15) & " M : " & target & " 下のファイル"
 
Wscript.Echo
 
' ************************************************
' ディレクトリ選択
' ************************************************
Function SelectDir( strTitle )
 
        Dim obj
 
        Set obj = Shell.BrowseForFolder( 0, strTitle, &H4B, 0 )
        if obj is nothing then
                SelectDir = ""
                Exit Function
        end if
        if not obj.Self.IsFileSystem then
                ErrorMessage = "ファイルシステムではありません"
                SelectDir = ""
                Exit Function
        end if
 
        SelectDir = obj.Self.Path
 
End Function
 
' ************************************************
' ダブルクォートで囲む
' ************************************************
Function Dd( strValue )
 
        Dd = """" & strValue & """"
 
End function
 
' ************************************************
' 指定数、指定文字列左側を埋める
' ************************************************
Function Lpad( strValue, str, nLen )
 
        Lpad = Right( String(nLen,str) & strValue, nLen )
 
End Function