mira ya encontre el error pero ahora tengo este otro chuta...
const base_datos="/pruebas/javs.mdb"
const driver_name="Microsoft Access Driver (*.mdb)"
Dim oConn
Set oconn= Server.CreateObject("ADODB.Connection")
oConn.ConnectionTimeout = tiempo
oConn.open "DRIVER=" & driver_name &";DBQ=" & server.mappath(base_datos)
strsql ="SELECT archivo FROM pdf "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, oConn,3,1
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
do while not rs.eof
File=trim(rs("archivo"))
'Archivo= File & ".pdf"
Archivo = File
IF NOT objfso.FileExists(file) THEN
Response.Write(file &" No existe<br>")
'rs.MoveNext 'te sobra esto
Else
origen="K:\planos para matriceria\die cutter\"& file
destino="K:\catalogo_pdf\"
objfso.MoveFile origen, destino
Response.Write(archivo &" Movido con Exito<br>")
end if 'te faltaba esto
rs.MoveNext
Loop
****************************************
No coinciden los tipos: 'objfso.FileExists'
/pruebas/mover_archivos.asp, line 21
este es la 21
IF NOT objfso.FileExists(file) THEN
que pasa
