ツールを探しています。指定フォルダ配下のサイズ・ファイル数

Question

Win2000です。
指定フォルダ配下のファイル数とサイズをテキストベースで一度に返すようなコンソール系のフリーソフトで、
良いものがあれば教えてください。

GUI形式のものはたくさんあるのですが、バッチ処理などから呼び出して、結果だけをレポートする目的で、
テキストベースで応答を返してくれるものを探しています。

→もし自作する場合など、VC等で目的に適した関数（ないしは、自作支援HPなど）があれば教えてください。

検索サイト等で、ありそうで、なかなか見つけられません。よろしくお願いします。

BLUEPIXY · Accepted Answer

#3>集計結果は、一度に、
なるほど、勘違いしていましたすみません。
以下修正してみました。
----------------------------------------------------------------
'指定したフォルダのサブフォルダを含めたファイル件数とサイズを表示する
'cscript //nologo GetFsize.vbs FOLDER
Dim fso, wsho, folderList, folder
Dim i, count

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set wsho = WScript.CreateObject("WScript.Shell")
Set folderList =WScript.Arguments

count=0
for i=0 to folderList.length-1
Set folder = fso.GetFolder(folderList(i))
count = count + auxProc(folder.Path)
next

WScript.Echo(folder.Path & " " & count & " files " & folder.Size & "Bytes")

function auxProc(folderPath)
Dim folder, x, folderName, count

Set folder = fso.GetFolder(folderPath)

count = folder.Files.Count
For Each x in folder.SubFolders 'サブフォルダの処理
count = count + auxProc(x.Path)
next
auxProc = count
End function
----------------------------------------------------------------
＞auxProc(folder.Path)の戻り値等で、ファイル数、サイズ（の２つ）を返して…
フォルダのサイズ自体は、ルートだけでいいので、（ルートのサイズはサブフォルダを含んだサイズなので）、ファイル数を返せば良いです。

＞処理速度的に、VBScriptを使っても、（VC等で作成することに比べ）遅いということは無いでしょうか。
例え、ＶＣを使ったとしても、こうしたディスクアクセスがほとんどの処理は大して変わらないと思います。
内容的にも大したことはやっていないので、ＡＰＩ呼び出しが動作のほとんどを占めると思いますが、それがＡＰＩの直接呼び出しか間接呼び出しかくらいの違いだと思うので、ディスクアクセスに比べれば大した違いにはならないと思います。

BLUEPIXY · Answer

VBScript でできます。
以下のスクリプトを適当な名前(FolderSizeR.vbs)で保存して実行（方法はサンプルに書いてある）します。
サイズはディスク上のサイズでなく実際のファイルサイズ。
----------------------------------------------------------------
'指定したフォルダのファイル件数とサイズを表示する
'サブフォルダを検索対象に含める
'起動方法
'cscript //nologo FolderSizeR.vbs フォルダの指定
'例：カレントフォルダ以下のフォルダを処理する
'cscript //nologo FolderSizeR.vbs .
Dim fso, wsho, folderList, folder
Dim i

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set wsho = WScript.CreateObject("WScript.Shell")
Set folderList =WScript.Arguments
 
for i=0 to folderList.length-1
    Set folder = fso.GetFolder(folderList(i))
    auxProc(folder.Path)
next

function auxProc(folderPath)
    Dim folder, x, folderName

    Set folder = fso.GetFolder(folderPath)
    
    WScript.Echo(folder.Path & " ファイル数：" & folder.Files.Count & ",サイズ：" & folder.Size)
    For Each x in folder.SubFolders 'サブフォルダの処理
        auxProc(x.Path)
    next
end function

HeavensCat · Answer

手元にあるExcelVBAの「できる大辞典(ISBN4-8443-1888-8)」を見ていますが、
P496
Sub　ファイル情報取得()
 Dim myFSO As New FileSystemObject
 Dim myFolder As Folder
 Dim myFiles As Files
 Dim myFile As File
 Dim i As Integer
 Set myFolder = myFSO.GetFolder("C:\指定フォルダー")
 Set myFiles = myFolder.Files
 For Each myFile In myFiles
   i = i+1
   Cells(i+2,1).Value = myFile.Name
   Cells(i+2,2).Value = myFile.DateCreated
   Cells(i+3,3).Value = myFile.Size
 Next
End Sub

このようなマクロで、ファイル名、作成日時、サイズがExcelのシート上に取得できるようです。
ご参考までに

suzukikun · Answer

dir /s フォルダ名　> foo.txt
じゃだめですか？

ツールを探しています。指定フォルダ配下のサイズ・ファイル数

#3>集計結果は、一度に、

この回答への補足

VBScript でできます。

この回答への補足

手元にあるExcelVBAの「できる大辞典(ISBN4-8443-1888-8)」を見ていますが、

dir /s フォルダ名 > foo.txt

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

dir /s フォルダ名　> foo.txt