ぶりりあんとろーど(仮)

2018-07-01

[]フォルダサイズ一覧を出力


フォルダサイズ一覧(サブフォルダ検索)を出力するVBS

階層が深いと実行に時間がかかったり権限がないとエラーになったりするので注意

'------------------------------
'  フォルダ検索処理メイン
'------------------------------
'★定数の定義
RESULT_DIR = "N:hoge"        '結果のテキスト出力先フォルダ
SEARCH_DIR = "C:\hoge"        '検索を行うフォルダ

'FileSystemObjectの生成
Set fso   = CreateObject("Scripting.FileSystemObject")
'結果のテキストを作成
Set resultfile = fso.CreateTextFile(RESULT_DIR & "\" & "result.txt",True)

'サブのメソッドを呼び出し
Call Sub_SearchDir(SEARCH_DIR,"")

msgbox "完了しました"

'------------------------------
'  検索サブ
'------------------------------
sub Sub_SearchDir(branchpath , deps)

Dim fsoFolder
Dim fsoSubFolder
Dim fsoFile

'フォルダオブジェクト取得
Set fsoFolder = fso.GetFolder(branchpath)

    'サブフォルダを検索
    Set branch = fso.getfolder(branchpath)
    For each f in branch.subfolders

        'フォルダ名を出力
        resultfile.WriteLine branchpath & vbTab & f.name & vbTab & f.size

        'さらにサブフォルダを探索
        Call Sub_SearchDir(branchpath & "\" & f.name , deps & "---")
    Next


End Sub


set branch = nothing
set fso = nothing