klasörün içini silmek
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
klasörün içini silmek
arkadaşlar herkese iyi geceler sorum şu ben örneğin c:\ornek klasörünün içindeki dosyaları silmek istiyorum ama klasörü diil içindeki dosyaları yardımlarınızı bekliyorum teşekkürler...
Kod: Tümünü seç
var
DirInfo: TSearchRec;
rx : Integer;
begin
rx := FindFirst('C:\example\*.*', FaAnyfile, DirInfo);
while rx = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar('C:\example\' + DirInfo.Name))= false then
ShowMessage('C:\example\'+DirInfo.Name+' silinemiyor...');
rx := FindNext(DirInfo);
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
showmessage('Dehanın %1 i ilham %99u terdir.');
end;
end.
begin
showmessage('Dehanın %1 i ilham %99u terdir.');
end;
end.