WSHでFD内のファイルを検索

WSH（WindowsScriptHost）でFDの中に入っているファイルのファイル名を入手することはできますでしょうか？

No.1 ベストアンサー 回答者： Oh-Orange 回答日時： 2007/10/26 15:37

★出来ます。

・『VBScript ファイル検索』でネット検索するといっぱいサンプルが見つかります。
　例えば
　http://www1.u-netsurf.ne.jp/~tomo_c/tips/R23Lev0 …→『Tips - ステップアップWSH』
　http://www1.u-netsurf.ne.jp/~tomo_c/tips/R23Lev1 …→『検索フォルダ／検索文字をコマンドライン引数から指定する』
　http://journal.mycom.co.jp/column/nihongoprog/04 …→『日本語で10行プログラミング』
　→『』
・過去質問では
　http://oshiete1.goo.ne.jp/qa3428312.html→『VBScript　フォルダ以下からファイルの検索、コピー』
　FD なのでドライブを指定してからファイル検索、ファイル一覧を行って下さい。

サンプル:
Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder("A:\") 'FDのドライブを指定

' 指定のフォルダに格納された各ファイルを処理する
tmpMessage = "ファイル一覧:" & vbNewLine
For Each FileName In src.Files
tmpMessage = tmpMessage & FileName & vbNewLine
Next
WScript.Echo tmpMessage

' 指定のフォルダに格納された各サブフォルダを処理する
tmpMessage = "フォルダ一覧:" & vbNewLine
For Each FolderName In src.Subfolders
tmpMessage = tmpMessage & FolderName & vbNewLine
Next
WScript.Echo tmpMessage

以上。

参考URL：http://www1.u-netsurf.ne.jp/~tomo_c/tips/R23Lev0 …

この回答へのお礼

回答ありがとうごいます。
ファイルの一覧確認できました。

Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder("A:\")
For Each FileName In src.Files
msgbox FileName
Next

と実行していたのですが、「src.Files」でエラーが出て、「えっもしかしてドライブ直下はダメなのかな？」と思っていた次第です。

ありがとうございました。

お礼日時：2007/10/26 18:37