フォルダのサイズ一覧(サブフォルダも検索)を出力する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