Verificare l'esistenza di un file

<%OPTION EXPLICIT
' questo codice verifica l'esistenza di un file
dim fso
dim file

set fso = Server.CreateObject("Scripting.FileSystemObject")
file = server.mappath("nomecartella/nomefile.ext")

if fso.fileExists(file) then
response.write "Il file "& file & " esiste!"
else
response.write "Il file " & file & " non esiste!"
end if
set fso = nothing
%>