Dateigrösse bestimmen

wyelek · Hält's aus hier Beiträge: 5

Hallo Leute

Wie kann ich prüfen ob eine Datei kleiner als
z.B. 20kb ist und sie dann löschen ?

Besten Dank
Rolf

Stefan.Buchholtz · Verfasst: Fr 22.09.06 09:36

Mit FindFirst kannst du die Verzeichnisinformationen einer Datei ermitteln:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  fileInfo: TSearchRec;
begin
  if FindFirst(dateiName, faAnyFile, fileInfo) = 0 then
  begin
    if fileInfo.size < 20480 then 
    begin
      DeleteFile(dateiName);
    end;
  end;
  FindClose(fileInfo);
end;

Stefan

_________________
Ein Computer ohne Windows ist wie eine Schokoladentorte ohne Senf.

wyelek · Hält's aus hier Beiträge: 5

Besten Dank - es funktioniert.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme