COPIADO DE ARCHIVOS CON ASP Error de Microsoft VBScript en tiempo de ejecución error

[lioli]

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


%>