09/07/21 20:26:20
>>20 適当にレス。
突っ込み1 &strName&" をチェックしています"
→「strName&」 は間違いかも(変数接辞や数値接辞の&はLong型の暗黙の宣言子)。正しくは「strName &」
突っ込み2 SearchedTS = Nothing then
→上で文字列を代入しているか何も入っていないのでObject型にはならないと思う。(期待する値も文字列型でしょうからそもそも間違い)
そのため比較式の答えは常にFalseになるでしょう。正しくは「SearchedTS = "" then」または「SearchedTS = vbNullString then」
突っ込み3 FileList = Fso.GetFolder(TSSearchFolder)
→先頭にSetが抜けてます。これだとデフォルトのプロパティであるNameの値つまり文字列型の"D:\"が入る気がする。
突っ込み4 ひとつ見つかればいいなら見つかったあとループを中断すべき。
→Exit For を追加。