Les fonctions suivantes retournent respectivement la date et l'heure de modification d'un fichier sous forme de chaîne de caractères
Source / Exemple :
DateToStr(FileDateToDateTime(FileAge('c:\fichier.txt'))) ;
TimeToStr(FileDateToDateTime(FileAge('c:\fichier.txt'))) ;
13 juin 2007 à 18:39
function GetFileDateTime(const FileName: string): TDateTime;
var sr: TSearchRec;
begin
if (FindFirst(FileName, 0, sr) = 0) then Result := FileDateToDateTime(sr.Time)
else Result := 0;
FindClose(sr);
end;
Car dans les dernières versions de Delphi la fonction FileAge est désaprouvée.
15 juin 2006 à 10:00
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.