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 '（検索機能の定義の終了）
