Hallo
DP!
Ich habe Dateien mit einem Datum im Dateinamen. Fuer den heutigen Tag sieht sie z.B. so aus: 120213.zip
FormatDateTime('yymmdd',now)+'.zip'
Ich moechte nun die Dateien der letzten 14 Tage auf Anwesenheit pruefen. Vermeiden moechte ich:
Delphi-Quellcode:
if FileExists(FormatDateTime('yymmdd',now)+'.zip') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-1') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-2') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-3') then //mache dies und das
if FileExists(FormatDateTime('yymmdd',now)+'.zip-4') then //mache dies und das
...
Das kann man bestimmt irgendwie eleganter loesen.
Delphi-Quellcode:
for i := 0
to -13
do
begin
if FileExists(FormatDateTime('
yymmdd',now[i])+'
.zip')
then //mache dies und das
dec(i);
end;
So gehts auf jeden Fall nicht
WIsst ihr Rat?