Te falta cerrar el If, si encuentra el archivo, lo copias...si no lo encuentra, haces algo? si no haces nada si no lo encuentra entonces solo cierra el If
do while not rs.eof
File=trim(rs("id_kiwi"))
Archivo= File & ".dxf"
CAD = Server.MapPath("Z:\solocad\" & Archivo & ".dxf")
if objfso.FileExists(CAD) THEN
origen="Z:\solocad\"& Archivo
destino="Z:\CADRetenido\"
objfso.MoveFile origen, destino
End If
rs.MoveNext
Loop********************linea 25
Bueno, creo que yo si me entendí...
Salu2,