Datei vorhanden/aktuell

[Mauli]

Die Funktion guckt ob eine Datei aktuell ist:

Einfach den Pfad und den Dateinamen übergeben.

Delphi-Quellcode:

function Vorhanden(Pfad,Name:String): Boolean;
var  F           : TSearchRec;
     Datei,
     TageStr     : String;
     ZeitStempel : TDate;
     Tage        : Integer;


begin
 Vorhanden:=False;
 Datei:= Pfad+Name;
 if (FindFirst((Datei), faAnyFile,F))= 0
   then  begin
          ZeitStempel := FileDateToDateTime(FileAge(Datei));
          if (DateToStr(Zeitstempel)= DateToStr(Date))
         then Vorhanden:=True
        end;


end;