Date et heure de derniere modification d'un fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 335 fois - Téléchargée 30 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

Messages postés
7
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
14 mars 2007

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.
Messages postés
2
Date d'inscription
jeudi 15 juin 2006
Statut
Membre
Dernière intervention
15 juin 2006

ç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.