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

        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