Copiar contenido de una carpeta

[Casimiro Noteví]

Exactamente qué quieres hacer.

[jbecerra]

Lo que quiero hacer es: Copiar todos los archivos de una carpeta y ponerlos en otra carpeta... solo eso.. me puede ayudar?

[Casimiro Noteví]

Por eso pregunto, exactamente.
¿Son carpetas fijas, el usuario elige, etc.?

[jbecerra]

No.. el usuario no elije la carpeta...las elijo yo, porque al usuario le importa que los archivos aparezcan en la dirección que yo le voy a poner...

[jbecerra]

Se entiende lo que quiero hacer?

[Casimiro Noteví]

Bien, entonces ¿cuál es el problema, en qué parte tienes dudas?

[ecfisa]

Hola jbecerra.

Espero haber entendido...

Para Windows:

Código Delphi [-]
... 
implementation

uses Windows, ShellApi;   

procedure CopyFolderFiles(sourceFolder, targetFolder: string);
const
  FOF_NORECURSION = $1000;
var
  SHFOS: SHFILEOPSTRUCT;
begin
  sourceFolder:= IncludeTrailingPathDelimiter(sourceFolder)+'\*.*';
  targetFolder := ExcludeTrailingPathDelimiter(targetFolder);
  ZeroMemory(@SHFOS, SizeOf(SHFOS));
  SHFOS.wFunc:= FO_COPY;
  SHFOS.fFlags:= FOF_FILESONLY or FOF_NORECURSION;
  SHFOS.hNameMappings:= nil;
  SHFOS.pFrom:= PChar(sourceFolder+#0+#0);
  SHFOS.pTo:= PChar(targetFolder+#0+#0);
  SHFileOperation(SHFOS);
end;

Llamada ej.:

Código Delphi [-]
begin
   CopyFolderFiles2('C:\UNA_CARPETA', 'C:\OTRA_CARPETA');

Saludos

[jbecerra]

Buenísimo...lo pruebo y luego te comento...pero basicamente lo que necesito es lo siguiente: lo hago con un ejemplo:
supongamos que tenemos las carpeta "A" y la carpeta "B"... la carpeta A tiene los archivos a1, a2 y la carpeta B está vacía...entonces: lo que quiero hacer es Copiar los archivos a1, a2 en la carpeta B.
Pruebo el módulo que me pasaste y te comento... De igual forma muchas gracias por tu ayuda...
saludos.-