Hey, da ich ein Template kopiere brauch ich eigentlich nur einen Temporären Dateinamen.... Gibts da ein "GetTempFilename" das mir nur einen Namen zurückgibt und keine Datei gleichzeitig erzeugt?
Für interessierte, mit diesem Code lösche ich in meinem Temp Verzeichnis alle Dateien älter als 7 Tage:
Delphi-Quellcode:
// -- Delete Temp Data, older one week --- // faAnyFile
if FindFirst(FRM_Main.AppPath +'Files\Temp\' + '*.*', faDirectory, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr <> faDirectory) and (SearchRec.Name <>'.') and (SearchRec.Name <>'..') then
begin
//showmessage(DateToStr(FileDateToDateTime(FileAge(FRM_Main.AppPath +'Files\Temp\' + SearchRec.Name))));
//showmessage(SearchRec.Name);
if FileDateToDateTime(FileAge(FRM_Main.AppPath +'Files\Temp\' + SearchRec.Name)) < (Date -7) then
begin
//showmessage('Älter als eine Woche');
DeleteFile(FRM_Main.AppPath +'Files\Temp\' + SearchRec.Name); // Delete File
end;
end;
until FindNext(SearchRec) <> 0;
end;
FindClose(SearchRec);