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;

[sakura]

Hi,

ich habe Deinen Beitrag erst einmal geteilt. Wenn Du einen neuen Eintrag hast, bitte auch einen neuen Thread erstellen, nicht antworten.

Ich habe den Beitrag erst einmal verschoben, weil es für Deine Lösung die einfachere Prozedur FileExists gibt. Wenn Du meinst, ich habe einen Fehler gemacht, lass es mich wissen.

......