VBScript IF文の質問

質問

あるフォルダ中のファイルを削除する、VBScriptを作成しています。使用上、フォルダ内には、数十種類の拡張子を持つファイルが存在します。
"GetExtensionName"を使用して削除対象のファイルを拡張子を限定しています。(例えば.txtや.logです)
対象としている拡張子のファイルの中に、さらに除外する必要のあるファイルが、3種類ほど、あります。(例えば、ファイル名にabcやxyzの文字列を含む.txtファイル)
IF文を使って、色々と試しているのですがどうしてもうまく行きません。
どなたかご存知の方いたら、教えてください。
宜しくお願いします。
OSは、WindowsServer2003です。

回答No.1

notnot

「文字列を含む」であれば、Instr関数が使えます。最初にLcaseで小文字に変換してから調べた方がいいでしょうね。

if instr(lcase(filename),"abc")>0 then
　abcが含まれる場合の処理
end if

お礼

notnotさん
アドバイス有難うございました。

何とか出きるか只今、考え中です。
拡張子.logと.txtファイルを削除対象とする。
下記にあるうち、abc.txtとabc_def.txtと34.logファイルは削除除外とする必要があります。
それで困ってしまいました。

abc.txt、abcd.txt、abc_def.txt、abc_defg.txt、abc_defgh.txt
その他、100個ほどの.txtファイル

3456.log、345.log、34.log、3.log
その他、100個程の.logファイル

その他の除外拡張子ファイル
.jpg、.xls、.doc、ppt、.ini、.exe等