Busca Arquivo com FSO

Pessoal preciso de uma ajuda.

estou tentando fazer uma busca de uma arquivo no servidor, utilizando o seguinte script, mas tenho uma duvida caso eu não saiba a extensão do arquivo como posso adaptar este script.

Exemplo: não sei se o arquivo é .txt ou .doc

<%
pasta = "D:\"
arquivo = "teste.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(pasta)
Set fc = f.Files
For Each f1 in fc
if (f1.name=arquivo) then
response.write "aquivo existe"
end if
Next
%>
Aguardo Ajuda

Obrigado