22/05/2003, 09:24
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Rancagua - Chile
Mensajes: 1.328
Antigüedad: 23 años, 9 meses Puntos: 2 | |
| Mover Archivos
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
__________________
Usa títulos específicos y con sentido
En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema. |