COPIADO DE ARCHIVOS CON ASP Error de Microsoft VBScript en tiempo de ejecución error Hola si alguien me podría ayudar quiero realizar un copiado de unos archivos de una estructura anterior a una actual lo estoy realizando mediante el siguiente codigo pero al ejecutarlo me vota el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución error '800a0035'
Archivo no encontrado
/CopyFileServer.asp, l�nea 40
La linea 40 en mi codigo vendría a ser la siguiente:
objFSO.CopyFile "ruta2","ruta3",true
Este es el codigo completo... HELP ME..!!
<%
sql3 = " select distinct top 1 LEFT(crrcodi,2) as car,ciccodi as cic,alucodi as alu,paldire as pal from campusdued.dbo.UPARAL01 where LEFT(crrcodi,2)='78' and HOSTNAME<>'69.73.155.164' order by car,cic,alu,pal"
set rs3=conexion.execute(sql3)
dim objFSO,objFolder
Set objFSO = CreateObject("scripting.FileSystemObject")
t_rs3 = rs3.GetRows
for I = 0 to UBound(t_rs3,2)
'pathname2 = "books\Harold2\78\2011206933\2011206933-78104-01.zip"
pathname2 = "books\Harold2\"&t_rs3(0,I)&"\"&t_rs3(2,I)&"\"&t_r s3(3,I)
pathname3 = "books\Harold\"&t_rs3(0,I)&"\"&t_rs3(1,I)&"\"&t_rs 3(2,I)&"\"
'pathname3 = "books\Harold\78\20112B4\2011206933\"
'pathname4 = "books\Harold\78\20112B4\2011206933\2011206933-78104-01.zip"
pathname4 = "books\Harold\"&t_rs3(0,I)&"\"&t_rs3(1,I)&"\"&t_rs 3(2,I)&"\"&t_rs3(3,I)
ruta4=Server.MapPath(pathname4)
ruta2=Server.MapPath(pathname2)
ruta3=Server.MapPath(pathname3)
'if objFSO.FileExists(server.mappath(pathname4)) then
objFSO.CopyFile "ruta2","ruta3",true
Next
Set objFSO = Nothing
%>
