Create a new file date/de

From Free Pascal wiki

Deutsch (de)

Ändert das Erstellungsdatum einer Datei:

function funDateiDatumAendern(strDateiname: string;
  strNeuerZeitstempel: string): boolean;
var
  datNeuesDateidatum: TDateTime;

begin

  Result := False;

  // Prüft, ob die Datei vorhanden ist
  if FileExists(UTF8ToSys(strDateiname)) = False then
    exit;

  // legt den aktuellen Datums- und Zeitstempel der Datei fest
  // Die Schreibweise des Datums richtet sich nach dem Betriebssystem
  // Die Schreibweise der Uhrzeit richtet sich nach Sommer- und Winterzeit

  datNeuesDateidatum := StrToDateTime(strNeuerZeitstempel);

  // StrToTime('03:00')
  // TryStrToDateTime

  // Setzt das neue Dateidatum
  FileSetDate(UTF8ToSys(strDateiname), DateTimeToFileDate(datNeuesDateidatum));

  Result := True;

end;


Aufruf unter Windows:

  if funDateiDatumAendern('E:\Test.txt', '10.01.2000 14:34:56') = False then
    ShowMessage('Fehler');


Aufruf unter Linux (Ubuntu):

  if funDateiDatumAendern('/home/user/Dokumente/Test.txt', '10-1-00 14:34:56') = False then
    ShowMessage('Fehler');



--Olaf 06:44, 19 July 2013 (UTC)