Fórum Copiar e apagar arquivos com coringa --gt; * #145340

[quote:bb7363adb6=´Poeta Noturno´]Pessoal, como vão?

Como faço copiar ou apagar arquivos com o caracter coringa *??

Por exemplo: copiar ou deletar os arquivos arquivo.*

Obrigado

Poeta Noturno[/quote:bb7363adb6]

Copiar arquivos usando curingas (*.*)
{ - Coloque um Button no Form;

- Altere o evento OnClick deste Button conforme abaixo: }



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;
Observações

No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false. CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!

[quote:776618683b=´Poeta Noturno´]Pessoal, como vão?

Como faço copiar ou apagar arquivos com o caracter coringa *??

Por exemplo: copiar ou deletar os arquivos arquivo.*

Obrigado

Poeta Noturno[/quote:776618683b]

Copiar arquivos usando curingas (*.*)
{ - Coloque um Button no Form;

- Altere o evento OnClick deste Button conforme abaixo: }



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;
Observações

No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false. CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!

Excluir arquivos usando curingas (*.*)
{ - Coloque um Button no Form;

- Altere o evento OnClick do Button conforme abaixo: }

procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(´c:\Teste\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then
if not DeleteFile(´c:\Teste\´ + SR.Name) then
ShowMessage(´Não consegui excluir c:\Teste\´ + SR.Name);
I := FindNext(SR);
end;
end;
Observações

No exemplo acima todos os arquivos do diretório c:\Teste serão excluídos. CUIDADO! Arquivos excluídos desta forma não vão para a lixeira.

Brigadão Carnete...

Valeu Mesmo...