copiar arquivos usando curingas e string

Delphi

23/01/2004

olá amigos

bem meu problema é o seguinte, preciso copiar todos arquivos de uma determinada pasta e com extensões diferentes, mas somente arquivos que comecem com mouse por exeplo, se o arquivo tiver nome de mousepad, ele copia, caso não comece com mouse não copia, não importa a extenão do arquivo.

Se alguem tiver a solução, agradeço
Sanses


Sanses

Sanses

Curtidas 0

Respostas

Sanses

Sanses

23/01/2004

sobe


GOSTEI 0
Fabio.hc

Fabio.hc

23/01/2004

Tente assim:

procedure TForm1.Button2Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
  Origem, Destino: string;
begin
  I := FindFirst(´c:\Origem\*.*´, faAnyFile, SR);
  while I = 0 do begin
  if (SR.Attr and faDirectory) <> faDirectory then begin
  Origem := ´c:\Origem\´ + SR.Name;
  Destino := ´c:\Destino\´ + SR.Name;
  if not CopyFile(PChar(Origem), PChar(Destino), true) then
  ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
  end;
  I := FindNext(SR);
  end;
end;


No lugar do *.* vc coloca mouse*.*


GOSTEI 0
POSTAR