Liste des fichiers d'un repertoire

Question

Bonjour &#224; tous,

J'ai install&#233; Delphi 6 il y 2 jours pour enfin (essayer) de d&#233;velopper des petits softs et ca commence mal ;o)
J'ai quand m&#234;me compris comment fonctionn&#233; un Timer mais maintenant je me heurte &#224; des tests sur les fichiers d'un r&#233;pertoire.
J'esplique ce que je veux faire !
Le programme doit tourn&#233; en tache de fond, dout le Timer, et me signaller par une couleur lorsqu'un fichier du repertoire a &#233;tait modifi&#233;.
Quelqu'un peu t il me dire comment faire ?

Merci
Voici mon code !

procedure TForm1.Timer1Timer(Sender: TObject);
var
  cDateFile : integer;
  SearchRec : tSearchRec;


begin
   if FindFirst('c:	emp\*.*', faAnyFile, SearchRec) = 0 then
     begin
       While (FindNext(SearchRec) = 0) do
         begin
            Edit1.Color := clLime;
            cDateFile := SearchRec.Time;
            edit2.Text := SearchRec.Name;
            if cDateFile <= Date-7 then
               Edit1.Color := clRed;
         end;
       end;
       FindClose(SearchRec);
     end;
end.

manu1506 · Answer

Je te conseille plut&#244;t de consulter les champs :

SearchRec.FindData.ftLastWriteTime
ou
SearchRec.FindData.ftLastAccessTime

pour conna&#238;tre les date/heure de la derni&#232;re modif ou du dernier acc&#232;s.

Liste des fichiers d'un repertoire

1 réponse

Votre réponse

Discussions similaires