07/02/07 15:24:33 vbKfejhE0
Set args = WScript.Arguments 'パラメータ取得のための準備
Set Fs = WScript.CreateObject("Scripting.FileSystemObject") 'Fsにファイルシステムオブジェクトを代入
Set listfile = Fs.CreateTextFile("list.txt",True) '結果を出力するためのテキストファイルを作成
path = args(0) 'パラメータを取得し、pathに格納
If Fs.FolderExists(path) Then 'もしもpathにフォルダーが存在するならば
Call RecursibleSearch(path) '検索機能を呼び出し
Else 'pathにフォルダーが存在しないならば
MsgBox "このパスは実在しません。" 'メッセージを表示して
WScript.Quit '終了
End If '（フォルダーの存在確認終了）
listfile.close 'ファイルハンドルlistfileを閉じる
MsgBox "Finished creating list.txt" '終了メッセージ
Sub RecursibleSearch(folderspec) '検索機能の定義
Set fol = Fs.GetFolder(folderspec) 'フォルダーを取得し、folに代入
Set flc = fol.Files 'フォルダー内のファイル群を取得
For Each fl1 in flc 'ファイル群のそれぞれのファイルについて
If fl1.Size<67108864 Then 'サイズが64MB未満ならば
listfile.WriteLine fl1.Path 'ファイルのパスをlistfileに書き出し
End If '（ファイル群処理の終了）
Next '（次のファイルへ）
Set sfc = fol.SubFolders 'フォルダー内の下位フォルダー群を取得
For Each sf1 in sfc '下位フォルダー群のそれぞれについて
Call RecursibleSearch(sf1.Path) '検索機能を再帰呼び出し
Next '（下位フォルダー群処理の終了）
End Sub '（検索機能の定義の終了）