ara,bul,sil

[fearless]

selam arkadaşlar,

takıldığım bir konuda yardımınıza ihtiyacım var, umarım konu hakkında bilgisi olan birisi çıkar.

yapmak istediğim şey ,belirli bir dosyayı (örneğin excel dosyası) tüm bilgisayar içerisinde arayacak (gizli ve geçici dosyalar dahil) ve bulunan dosyaları otomatik olarak silecek bir program.

elimden geldiğinde aradım ama bulamadım, yardımcı olursanız sevinirim.

kolay gelsin.

[mkysoft]

Kod: Tümünü seç

procedure xxxx
var
  ProblemDosyalari: array of string[255];
  dosyasay:integer;
  sonuc : TSearchRec;
  i: integer;
begin
  if DirSelected = '' then
  begin
    DirSelected := ExtractFilePath(Application.ExeName);
    if SelectDirectory('Problem Klasörünü Seçin:','',DirSelected) = false then exit;
  end;
  if DirSelected[length(DirSelected)] = '\' then
    DirSelected := copy(DirSelected,1,length(DirSelected)-1);
  setlength(ProblemDosyalari,0);
  dosyasay := FindFirst(DirSelected+'\*.dat', faAnyFile - faDirectory, sonuc);
  while dosyasay = 0 do
  begin
    setlength(ProblemDosyalari,length(ProblemDosyalari)+1);
    ProblemDosyalari[length(ProblemDosyalari)-1] :=DirSelected+'\'+sonuc.Name;
    dosyasay := FindNext(sonuc);
  end;
  FindClose(sonuc);
  for i := 0 to length(ProblemDosyalari)-1 do  
    DeleteFile( ProblemDosyalari[i]);
end;

Bu kodu değiştirerek kullanabilirsin sanırım. Alt klasörlere inmek için bu kodu recursive hale getirmelisin.