du3 http://www1.u-netsurf.ne.jp/~tomo_c/tips/R23Lev15.html

' --< フォルダの再帰処理 >------------------------------------------------------
Sub FolderSearch(fn)
' 引数に指定されたフォルダの情報を取得
Set subf = fso.GetFolder(fn)

' ファイル数と、サブフォルダ数の加算
TotalCountFile = TotalCountFile + subf.Files.Count
TotalCountFolder = TotalCountFolder + subf.Subfolders.Count

' 指定のフォルダに格納された各ファイルの処理
For Each FileName In subf.Files
TotalSize = TotalSize + FileName.Size
Next



' 指定のフォルダに格納された各サブフォルダを処理する
For Each FolderName In subf.Subfolders

WScript.Echo FolderName

FolderSearch(FolderName)
Next
End Sub

' --< メインルーチン >----------------------------------------------------------
' オブジェクト定義
Set arg = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")

' カウンタクリア
TotalSize = 0
TotalCountFile = 0
TotalCountFolder = 0

' フォルダ探索開始
FolderSearch(arg(0))

' 結果表示
WScript.Echo "調査フォルダ:" & arg(0)
WScript.Echo "ファイル数:" & TotalCountFile
WScript.Echo "フォルダ数:" & TotalCountFolder
WScript.Echo "ファイル総容量:" & TotalSize