DeleFile()

[DownLine.BR 0]

Uso o seguinte comando:

 

procedure TForm2.Button2Click(Sender: TObject);
var
arquivo: string;
begin
arquivo := directorylistbox1.Directory + '\';
DeleteFile(arquivo+'ARQUIVO.TXT');
end;

 

E funciona perfeitamente.

Mas queria que ele apagasse todos os arquivos, por exemplo TXT, ficando mais ou menos:

 

DeleteFile(arquivo + '*.txt*')

 

Mas não é esse o código.

Qual seria? Pois com esse ele não apaga todos os TXT.

[Laura Celestino 0]

Voce precisa buscar os arquivos um por um pra depois deleta-los:

 

procedure TForm2.Button2Click(Sender: TObject);
var
 F: TSearchRec;
 Ret: Integer;
 Arquivo : String;
begin
 Arquivo := directorylistbox1.Directory + '\';
 Ret := FindFirst(Arquivo+'*.txt', faAnyFile, F);

 try

   while Ret = 0 do
   begin
     if not (F.Attr and faDirectory = faDirectory) then
       DeleteFile(Arquivo+F.Name);
     Ret := FindNext(F);
   end;

 finally
   FindClose(F);
 end;
end;

 

Espero ter ajudado!