Discussion :

[JEG]

bponjour,

je cherche à récupérer la date et l'heure de modification d'un fichier et aussi celles d'un répertoire. Quel est le nom de la fonction appropriée ?

(je crois me souvenir que cette question a déjà été posée, mais l'outil de recherche me donne soit énormément trop de réponses, soit aucune... donc désolé pour la repose)

[cassandra]

tu as les fonctions :

extern PACKAGE int __fastcall FileAge(const AnsiString FileName);

extern PACKAGE int __fastcall FileGetDate(int Handle);

[CGi]

Tu as la fonction de l'API Windows GetFileTime

[Fred_smashg]

Tu peux aussi récupérer cette information dans la structure WIN32_FIND_DATA utilisée avec FindFirstFile par exemple.
@+
Frédéric

[JEG]

Meric pour vos réponses

Ca m'arrangerait que cette fonction renvoit un TDateTime, ou que je puisse créer un TDateTime à partir de la valeur retournée. Est-ce le cas pour GetFileTime ou FileGetDate ?

[cassandra]

BOOL GetFileTime(

HANDLE hFile, // identifies the file
LPFILETIME lpCreationTime, // address of creation time
LPFILETIME lpLastAccessTime, // address of last access time
LPFILETIME lpLastWriteTime // address of last write time
);

sinon tu as..

extern PACKAGE System::TDateTime __fastcall FileDateToDateTime(int FileDate);

Description

FileDateToDateTime convertit une valeur date/heure au format DOS en objet TDateTime, qui est la représentation de valeurs date et heure utilisées par la VCL.

Utilisez par exemple FileDateToDateTime pour convertir l'âge du fichier renvoyé par FileGetDate ou par FileAge en une valeur pouvant être utilisée avec d'autres routines et propriétés de la VCL. Vous pouvez aussi utiliser FileDateToDateTime pour convertir le champ Heure de la structure TSearchRec utilisée par les fonctions FindFirst et FindNext.

[Fred_smashg]

Je ne sais pas pour vous mais chez moi FileDateToDateTime me renvoie toujours une erreur : "argument incorrect pour l'encodage de date".
Et pourtant, je lui envoie bien un int en argument.

???

[Fred_smashg]

Apparemment ça a l'air de fonctionner chez vous. Pour ceux qui, comme moi, ont une erreur à l'utilisation de FileDateToDateTime, j'ai adapté une partie de l'article http://community.borland.com/article...,26051,00.html pour convertir une date au format FILETIME vers le format AnsiString :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  WIN32_FIND_DATA* lpFindFileData = new WIN32_FIND_DATA;
  HANDLE hFile = ::FindFirstFile("C:\\Autoexec.bat", lpFindFileData);
 
  if (hFile != INVALID_HANDLE_VALUE)
  {
    FILETIME fileTime1 = lpFindFileData->ftLastWriteTime;
    SYSTEMTIME systemTimeRESULT;
 
 
    bool result = ::FileTimeToSystemTime( &fileTime1, &systemTimeRESULT);
 
    AnsiString ansFileDate = AnsiString(systemTimeRESULT.wDay);
    ansFileDate += AnsiString("/");
    ansFileDate += AnsiString(systemTimeRESULT.wMonth);
    ansFileDate += AnsiString("/");
    ansFileDate += AnsiString(systemTimeRESULT.wYear);
    ansFileDate += AnsiString(" ");
    ansFileDate += AnsiString(systemTimeRESULT.wHour);
    ansFileDate += AnsiString(":");
    ansFileDate += AnsiString(systemTimeRESULT.wMinute);
    ansFileDate += AnsiString(":");
    ansFileDate += AnsiString(systemTimeRESULT.wSecond);
    ShowMessage(ansFileDate);
  }
  delete lpFindFileData;
}

Bien sûr, il serait mieux de faire une fonction ad hoc.


@+

Frédéric

[Fred_smashg]

Salut
Quelqu'un peut-il me dire s'il a eu le même problème que moi avec FileDateToDateTime() ?
Sinon, j'aimerais tout de même essayer de le régler.

Merci

[JEG]

Chez moi ceci marche :

ShowMessage(FileDateToDateTime(FileAge("c:\\autoexec.bat")));

mais lorsqu'il s'agit d'un répertoire ca marche tout de suite bcp moins bien

ShowMessage(FileDateToDateTime(FileAge("c:\\windows\\")));

==> erreur lors de l'encodage de la date.

mais bon avec un fichier je crois que je vais m'en sortir.

Merci à tous !!

[benj63]

Bonjour,

Je recherche dans les fichiers d'une base de données quel est la date la plus récente, pour savoir de quand date la base de données...

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
int date;
TSearchRec Infos_fichier;
 
date=0;
if (!FindFirst("entree\\*.*", faAnyFile, Infos_fichier))
do
        if(FileAge("entree\\"+Infos_fichier.Name)>date)
                date=FileAge("entree\\"+Infos_fichier.Name);
while(!FindNext(Infos_fichier));
FindClose(Infos_fichier);
Form1->BddMaj->Text=FileDateToDateTime(date);

Ceci fonctionne très bien, mais c'est assez long, car il parcourt tous les fichiers (plus de 2000)... Il n'y a pas moyen de trier en fonction de la date et de ne lire que la date du 1er ?
Merci beaucoup !

[benj63]

J'ai trouvé un truc un peu + rapide..., j'ai remplacé les FileDate() par Infos_Fichier.Time ce qui, il est vrai, est un peu + logique...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
int date;
TSearchRec Infos_fichier;
 
date=0;
if (!FindFirst("entree\\*.*", faAnyFile, Infos_fichier))
do
        if(Infos_fichier.Time>date)
                date=Infos_fichier.Time;
while(!FindNext(Infos_fichier));
FindClose(Infos_fichier);
Form1->BddMaj->Text=FileDateToDateTime(date);

Mon code est ainsi accéléré, mais si vous savez comment trier les fichiers par date et ne récupérer que le premier... merci !