VBScriptで質問があります。指定されたフォルダの中にある指定された拡張子のファイルのパスを取得する（１ファイル）処理を行いたいのですが、
==VBSファイル記述開始==
（略）
TSSearchFolder = "D:\"
（略）
FileList = Fso.GetFolder(TSSearchFolder)
For Each strFile In FileList.Files
strName = strFile.Name
outLogFile.WriteLine(Date&" "&Time&" "&strName&" をチェックしています")
If UCase(Right(strName, 3)) = ".TS" Then
SearchedTS = TSSearchFolder&strName
outLogFile.WriteLine(Date&" "&Time&" フォルダ検索によりtsを捕捉しますた（・∀・）")
outLogFile.WriteLine(Date&" "&Time&" 　→　"&SearchedTS)
End If
Next
If SearchedTS = Nothing then
outLogFile.WriteLine(Date&" "&Time&" tsを捕捉できなかったお・・・（´；ω；｀）ブワッ")
outLogFile.WriteLine(Date&" "&Time&" プログラム終了")
outLogFile.WriteLine("　")
outLogFile.Close()
WScript.Quit
End If
（略）
==VBSファイル記述終了==
この作業でログファイルに書き込まれたのは、
2009/07/20 16:13:22 をチェックしています
2009/07/20 16:13:22 tsを捕捉できなかったお・・・（´；ω；｀）ブワッ
2009/07/20 16:13:22 プログラム終了
のみ・・・orz
ttp://blog.livedoor.jp/akf0/archives/51369357.html　のページやその他サイトをぐぐっても見あたらず
FileList = SearchFolder(TSSearchFolder)　 For Each strFile In FileList　としても同じ結果でしたorz
どなたか解決策ご教授お願い致します・・・orz