récupérer date & heure de modification fichier et répert

Version imprimable

04/06/2002, 22h33
JEG

récupérer date & heure de modification fichier et répert

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)
05/06/2002, 10h26
cassandra

tu as les fonctions :

Citation:

extern PACKAGE int __fastcall FileAge(const AnsiString FileName);

extern PACKAGE int __fastcall FileGetDate(int Handle);
05/06/2002, 13h30
CGi

Tu as la fonction de l'API Windows GetFileTime
05/06/2002, 14h14
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
05/06/2002, 15h17
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 ?
05/06/2002, 15h30
cassandra

Citation:

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

Citation:

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.
05/06/2002, 16h01
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.

???

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:

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

05/06/2002, 19h06
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
05/06/2002, 19h18
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 !!

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:

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 !

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:

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 !