herhangi bir klasordeki sartlaa uyan dosyalari silmek

[Burhan_ast]

Merhaba

kullanicinin belirttigi klasorde bulunan ornegin *.Xls uzantili veya *Ahmet*.Xls ozelliklerine uyan tum dosyalari silmem mumkunmu DeleteFile ile sanirim 1 dosya silebiliyorum,

saygilar

[Battosai]

Kod: Tümünü seç

var
  DirInfo: TSearchRec;
  r : Integer;
begin
  r := FindFirst('C:\Download\Test\*.xls', FaAnyfile, DirInfo);
  while r = 0 do  begin
    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
      if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name))
         = false then
       ShowMessage('C:\Download\test\'+DirInfo.Name+' silinemiyor!!!');
    r := FindNext(DirInfo);
  end;
  SysUtils.FindClose(DirInfo);
  if RemoveDirectory('C:\Download\Test') = false then
    ShowMessage('C:\Download\test klasörü silinemiyor!!!');

kod alıntıdır.Üstünde sadece *.* *.xls yaparak oynama yaptım yani belirttiğin klasör içindeki tüm .xls uzantılı dosyalar silinir...kodu kafana göre değiştir.

[haydarxxx]

Yeni bir başlık açmak istemedim
benzer yöntem ile Klasör altında *.ini gibi dosyanın olup olmadığını nasıl sorgulatırız.

Kod: Tümünü seç

 r := FindFirst('C:\KursKayitTerminal\Database.ini', FaAnyfile, DirInfo);
  while r = 0 do  begin
    if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
        (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if    ......(pChar('C:\KursKayitTerminal\' + DirInfo.Name))
     = false then
       ShowMessage('C:\KursKayitTerminal\'+DirInfo.Name+' dosyası bulunamıyor');
    r := FindNext(DirInfo);

gibi

[ikutluay]

yukardaki kodda r= 0 ise yok demektir.

[ikutluay]

ayrıca bkz delphi fundementals

[haydarxxx]

tmm da hocam DeleteFile ile silme yapmayıp varmı kontrol ettirip böyle bir dosya yok diyeceğiz o yüzden DeleteFile nasıl düzenlenir

[conari]

Kod: Tümünü seç

while r = 0 do  begin 

satırı yerine

if komutu ile "r" yi kontrol et r =0 dönüyo ise dosya yok dersin var ise silersin v.s.

[haydarxxx]

Teşekkürler dediğiniz gibi hallettim