topic-44714

Board index FiveWin para Harbour/xHarbour Copiar archivos o carpetas

José Camilo

Posts: 212

Joined: Wed Apr 07, 2021 03:56 PM

Copiar archivos o carpetas
Posted: Thu Jul 25, 2024 09:17 PM

Buenas tardes.

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

Muchas Gracias

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Copiar archivos o carpetas
Posted: Thu Jul 25, 2024 11:28 PM

Hola buenas tardes, no se si te sirva

Code (fw): Select all Collapse

        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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

José Camilo

Posts: 212

Joined: Wed Apr 07, 2021 03:56 PM

Re: Copiar archivos o carpetas
Posted: Fri Jul 26, 2024 01:47 AM

Perfecto !!!

Gracias por tu tiempo Leandro !!!

Saludos

FiveTech Support Forums

Continue the discussion