Date et heure de derniere modification d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 874 fois - Téléchargée 32 fois


Contenu du snippet

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'))) ;

A voir également

Ajouter un commentaire Commentaires
dmapps Messages postés 7 Date d'inscription jeudi 9 janvier 2003 Statut Membre Dernière intervention 14 mars 2007
13 juin 2007 à 18:39
Marche très bien. Mais on peut également faire de la façon suivante :

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.
lorseb Messages postés 2 Date d'inscription jeudi 15 juin 2006 Statut Membre Dernière intervention 15 juin 2006
15 juin 2006 à 10:00
ça marche, j'ai chercher au moins 2 heure avant de tomber sur ton source.merci .

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.