Ainda não consegui.... :(

Delphi

18/03/2003

Como faço pra deletar todos os arquivos de uma pasta, MENOS OS .DOC ????

Não vou poder escolher, terá que ser uma rotina.

Não consegui fazer....

Obrigada. :P

Marcia :P


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

18/03/2003

[color=#012345:9c912dffcf]Experimente isso:[/color:9c912dffcf]
procedure TForm1.Button2Click(Sender: TObject);
var
    SR: TSearchRec;
    I: integer;
    arquivo: string;
begin
   I := FindFirst(´c:\pasta\*.*´, faAnyFile, SR);
   while I = 0 do
       begin
       if (SR.Attr and faDirectory) <> faDirectory then
          begin
          [b]arquivo[/b] := ´c:\pasta\´ + SR.Name;
if extractfileex(arquivo) <> ´doc´ then
 DeleteFile(arquivo);
       end;
       I := FindNext(SR);
   end;
end;

não tenho certeza se extractfileex se escreve assim


GOSTEI 0
POSTAR