Copiar contenido de una carpeta

[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.-

[Casimiro Noteví]

Empezado por jbecerra

... lo que necesito es lo siguiente:
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.

Eso es lo que tenías que haber dicho en el primer mensaje

[jbecerra]

jajaja..por ahí soy medio duro para explicarme Casimiro Notevi jaja...anduvo muy bien el modulo que me pasaste capo ecfisa..
+10
Muchas Gracias
saludos .-.

[Neftali [Germán.Estévez]]

Empezado por jbecerra

...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.

Con este truco puedes obtener el listado de todos los ficheros del directorio.
Ahí puedes especificar la máscara (para seleccionar unos tipos concretos o todos -*.*-) y si quieres realizar esa búsqueda de forma recursiva (para subdirectorios).

Una vez que tengas la llista de ficheros, recorrela y usa CopyFile, Filecopy,...

[jbecerra]

Gracias a todos por sus comentarios...han sido de gran ayuda...
saludos.-