Page 1 of 1
Copiar archivos o carpetas
Posted: Thu Jul 25, 2024 9:17 pm
by José Camilo
Buenas tardes.
Necesito poder copiar archivos (todos) de una carpeta a otra desde mi aplicación. Como se puede realizar?
Muchas Gracias
Re: Copiar archivos o carpetas
Posted: Thu Jul 25, 2024 11:28 pm
by 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
Re: Copiar archivos o carpetas
Posted: Fri Jul 26, 2024 1:47 am
by José Camilo
Perfecto !!!
Gracias por tu tiempo Leandro !!!
Saludos