ASP Clássico: Verificar se um arquivo Existe

 

Tive um problema pra resolver num sistema legado, em asp clássico, que era o seguinte:

O sistema exibe arquivos que são processados por uma outra estrutura (serviço) e que passou por uma atualização, onde o legado gerava arquivos TIF e a atualização gerava arquivos PDF.

Então, nesse momento a solução mais rápida seria, criar algum tipo de teste no ASP e modificar a extensão, visto que só haveria arquivos TIF ou PDF.

<%

dim nomearquivo = caminhoCompletoSemExtensao & ".TIF"

dim fs

set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(nomearquivo) then
  response.write(nomearquivo & "OK")
else

               nomearquivo = caminhoCompletoSemExtensao & ".PDF" 

       response.write(nomearquivo & "OK")

end if
set fs=nothing
%>

Agora é só adaptar aí!