copyfile con *

jonmendi · #1 28-12-2004

hola
alguien me podría decir porque no me funciona el siguiente código?
(el código está en varias líneas para que se entienda mejor)

nombre:= 'FER'+(table1.fieldbyname('campo1').asstring);
nombre1:= pchar('C:\clientes\'+nombre+'20B.*');
CopyFile(pchar(nombre1),pchar(nombre1),true);

Acaso no se pueden usar *-s? Si lo hago sin ellos no me da ningún problema.

Muchas gracias,
y también a todos los que me habéis contestado mis anteriores preguntas.

Un saludo

Neftali [Germán.Estévez] · #2 28-12-2004

Cita:

Empezado por jonmendi

...
CopyFile(pchar(nombre1),pchar(nombre1),true);

Segun ésto, estás intentando copiar un achivo sobre sí mismo.

NOTA: Utiliza TAGS para el código delphi; Con eso conseguirás que se lea de forma más clara.

Edgar++ · #3 28-12-2004

Si tu pregunta es si con esa funcion se pueden copiar varios archivos utilizando el *, la respuesta es no, para hacer eso tenes que copiar uno por uno con algun bucle...

jonmendi · #4 29-12-2004

hola de nuevo!

pues si que el código ese se intenta copiar asimismo. Pero bueno, el correcto era:

nombre:= 'FER'+(table1.fieldbyname('campo1').asstring);
nombre1:= pchar('C:\clientes\'+nombre+'20B.*');
nombre2:= pchar('C:\clientesfijos\'+nombre+'20B.*');
CopyFile(pchar(nombre1),pchar(nombre2),true);

Gracias a ambos, ya me han dicho que parece que no se pueden usar los *-s. Hare algún bucle.
Gracias, y un saludo

roman · #5 29-12-2004

Puedes evitar al bucle usando este procedimiento:

Código Delphi [-]uses
  ShellApi;

procedure CopyFiles(Source, Dest: String);
var
  FileOpInfo: TShFileOpStruct;

begin
  FillChar(FileOpInfo, SizeOf(FileOpInfo), 0);
  FileOpInfo.wFunc := FO_COPY;
  FileOpInfo.pFrom := PChar(Source + #0);
  FileOpInfo.pTo := PChar(Dest);
  FileOpInfo.fFlags := FOF_SIMPLEPROGRESS;

  ShFileOperation(FileOpInfo);
end;

que usarías así:

Código Delphi [-]CopyFiles('C:\clientes\' + nombre + '20B.*', 'C:\clientesfijos');

// Saludos