DELPHI PROCEDURE ET FONCTION :
FILEAGE
FileAge - SysUtils

Cette fonction retourne la date et l'heure d'un fichier.

Syntaxe :
Function FileAge(const FileName: String): Integer;
Exemple :
procedure TForm1.Button1Click(Sender: TObject);
var
  nomfichier   : string;
  datefichier   : Integer;

begin
  // Pour l'exemple on ouvre le fichier "fichier.txt"
  nomfichier := 'c:\dossier\fichier.txt';
  datefichier := FileAge(nomfichier);

  // Avons-nous obtenu l'âge du fichier ?
  if datefichier > -1 then
    ShowMessage(nomfichier+' date de la dernière modification = '+
                DateToStr(FileDateToDateTime(datefichier)));

  // resultat :
  // c:\dossier\fichier.txt date de la dernière modification = 06/08/2022

end;
↓ A voir aussi ↓
PROCEDURES ET FONCTIONS >>