none
lentitud filesystemobject RRS feed

  • Pregunta

  •  

    Tengo problemas al usar el filesystemobject por lentitud entre dos maquinas que estan en la misma red... el switch entre ellas es de 100mb/s y no supera los 10mb/s.

     

    Os copio un trozo del texto, a ver si veis algo raro... pero a mi me parece que no. Creo que es algo más raro todavía.

     

    Un saludo a todos y muchas gracias.

     

    fichero_origen = subfolder.path & "\" & objFile.name

    fichero_destino = replace(subfolder.path,carpeta_inicio,carpeta_destino) & "\" & objFile.Name

    Set fecha = objFSO.GetFile(fichero_origen)

    fecha_fichero = fecha.DateCreated

    if datediff("d",fecha_fichero,now())<14 then

    if not objFSO.fileexists(fichero_destino) then

    objFSO.CopyFile fichero_origen,fichero_destino,true

    sw=0

    end if

    else

    objFSO.DeleteFile (fichero_origen)

    if objFSO.fileexists(fichero_destino) then

    objFSO.DeleteFile (fichero_destino)

    end if

    end if

    martes, 11 de marzo de 2008 19:02