Delete com caracter curinga

Delphi

23/04/2004

Oi . . .
Estou tentando deletar arquivos com a mesma extrenção:
if FileExists(´*.avi´) then DeleteFile(´*.avi´);
Não funciona. Mesmo inserindo o caminho. Por quê?
{}
Deza


Deza.re

Deza.re

Curtidas 0

Respostas

Beppe

Beppe

23/04/2004

Ambas as funções não aceitam caracteres curinga, você precisa paassar o caminho de cada arquivo. Para fazer isso, vc procura pelos arquivos e manda deletar cada um.

procurando arquivos com FindFirst/FindNext:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=40371&highlight=findfirst


GOSTEI 0
Fabio.hc

Fabio.hc

23/04/2004

Exemplo:

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



GOSTEI 0
POSTAR