Mover Archivos

[dobled]

Quiero mover unos archivos a otra carpeta comprobando su status en la bd. pero no he podido agregarle la extension al archivo para que me la mueva...

strsql = "Driver={SQL Server};Description=sqldemo;SERVER=mi server; UID=sa;PWD=sa;DATABASE=DATA"
set oConn = server.createobject("adodb.connection")
oConn.open strsql

strsql ="SELECT id_ivprod, producto, id_kiwi , descripcion, id_status FROM ipivprod WHERE id_status=5 ORDER by producto"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, oConn,3,1
File=rs("id_kiwi")

do while not rs.eof
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
origen="Z:\solocad\aqui_la_variable_"file"_ pero_la_quiero_con_extension_PDF"
destino="C:\1\"
objfso.MoveFile origen, destino

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing

[u_goldman]

Y si tratas así?

Por cierto, metí la variable file dentro del loop, supongo que quieres copiar todo los archivos que te arroje el rs no?

do while not rs.eof
File=rs("id_kiwi")
File= File & ".pdf"
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
origen="Z:\solocad\aqui_la_variable_"file"_ pero_la_quiero_con_extension_PDF"
destino="C:\1\"
objfso.MoveFile origen, destino

rs.MoveNext
Loop

[dobled]

AHora como la traigo la variable aqui

origen="Z:\solocad\&"file&""

asi no me funciona

[u_goldman]

Ok, lo primero es entender que estás pasando un string concatenándola con una variable, de tal modo que la estructura es "string" & variable

origen="Z:\solocad\" & file

[dobled]

Te pasaste ahora logre entender, siempre he tenido esos problemas,,,,

ahora disculpa la patudez pero cambie la ruta a C:\solocad para unas pruebas y me funciona bien, pero en el Z:\solocad que está en un server me arroja problemas de permiso

Permiso denegado

[bakanzipp]

revisaste los permisos en la carpeta del otro server donde estas tratando de alojar el archivo?..

[dobled]

sip y agrege el user que me conecto a SQL y naaa