Como se si existe un archivo

[maestro]

<%
do while not rs.eof
File=trim(rs("id_kiwi"))
Archivo= File & ".dxf"

IF NOT FS.FileExists(Archivo) THEN
response.write("No existe el archivo") 'te faltaba esto
rs.MoveNext 'te sobra esto
Loop 'te sobra esto
Else
origen="Z:\solocad\"& archivo
destino="Z:\CADRetenido\"
objfso.MoveFile origen, destino
end if 'te faltaba esto

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
%>