copyfile con *

[jonmendi]

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]

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