Copiar archivos o carpetas

[José Camilo]

Buenas tardes.

Necesito poder copiar archivos (todos) de una carpeta a otra desde mi aplicación. Como se puede realizar?

Muchas Gracias

[leandro]

Hola buenas tardes, no se si te sirva

Code: Select all  Expand view

        aFiles := Directory("c:\tucarpeta\*.*")
        nCnLnIm := len(aFiles)
        While nLn <= nCnLnIm //Recorremos el array

            cNmAr := aFiles[nLn,1]
            cFile := cGtPs+"\"+cNmAr
            cRutDest := cRtCmRad+"\"+cNmAr
           
            CopyFile(cFile,cRutDest,0) //Copiamos el archivo a la carpeta nueva
            ferase(cFile) //Si es necesario se borra el archivo de la carpeta anterior

        EndDo

[José Camilo]

Perfecto !!!
Gracias por tu tiempo Leandro !!!
Saludos