F�rum Apagar arquivos #383848

17/08/2010

Ol� amigos estou precisando apagar arquivos que fica dentro de uma determinada pasta, gostaria de seleciona-los pela data de modifica��o. Exemplo : apagar todos as arquivos que a data de modifica��o seja menos que 10 dias. Nesta pasta existem muitos arquivos e eu n�o consigo ler um por um, com este comando ir� apagar pela data de modifica��o. Muito obrigado.

Marcelo

Curtir t�pico

+ 0

Responder

Posts

17/08/2010

Marco Salles

Vc pode pegar a id�ia ha outras maneiras , bem como outros m�todos Aqui eu n�o deleto , apenas mostro

var
i:integer;
begin
with FileListBox1 do
  begin
   Directory:='C:\zPodeApagar';  //Aqui seu Diretorio
     for I := 0 to pred(Count) do
       if FileDateToDateTime(FileAge(Items.Strings[i])) >= (Date - 15) then  //Aqio a condi��o
          showmessage(Items.Strings[i]);
  end;
end;

Responder

Gostei + 0

17/08/2010

Eriley Barbosa

function GetFileDate(Arquivo: String): String;
var FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
    Result := DateToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
    FileClose(FHandle);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec : TSearchRec;
Data: string;
begin
try
    FindFirst('C:\Teste\*.exe', faAnyFile, SearchRec);     repeat
      if SearchRec.name <> '' then
        Data := GetFileDate('C:\Teste\' + SearchRec.name);
      if Data <> '' then
        if Data = DateToStr(Now - 10) then
          DeleteFile('C:\Teste\' + SearchRec.name);
    until FindNext(SearchRec) <> 0;
finally
    FindClose(SearchRec);
end;
end; Atenciosamente Eriley

Responder

Gostei + 0

17/08/2010

Marco Salles

A classe TSearchRec atende muitissimo bem Vale resaltar que no Delphi2010 a Unidade IOutils.pas ... Similar ao NomeSpace System.IO presente no .NET Possui Classes que facilita o Trabalho com Arquivos e Diret�rios T Directory TPath TFile o que falita neste trabalho... sem dizer de possivel warning do compilador que podera acusar Decrepted

Responder

Gostei + 0