los voy a probar y les aviso gracias...
Que tengo maL sale este error
Error de compilación de Microsoft VBScript (0x800A040E)
'Loop' sin 'Do'
do while not rs.eof
File=trim(rs("id_kiwi"))
Archivo= File & ".dxf"
IF NOT FS.FileExists(Archivo) THEN
rs.MoveNext
Loop
Else
origen="Z:\solocad\"& archivo
destino="Z:\CADRetenido\"
objfso.MoveFile origen, destino
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing