Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre éprouvé
    Profil pro
    Inscrit en
    janvier 2006
    Messages
    1 882
    Détails du profil
    Informations personnelles :
    Âge : 66
    Localisation : Belgique

    Informations forums :
    Inscription : janvier 2006
    Messages : 1 882
    Points : 1 161
    Points
    1 161
    Par défaut Recherche fichier par la date de création (date modifiée) avec le format dans un Tedit !
    Bonsoir à toutes et à tous,

    J'ai un dossier avec des fichiers qui ont été modifiés et j'aimerai les classer par la date de modification.

    J'ai essayé avec cette procédure mais cela fonctionne une fois sur deux :

    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
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
     
    {Liste (avec ou sans chemin complet) les fichiers d'un répertoire filtrés par leur extension,
    ou tous les fichiers si aucune extension passée à la procedure.
    SortFlag = 0   => Liste triée par ordre alphabétique
    SortFlag = 1   => Liste triée par date de modification
    SortFlag = 2   => Liste triée par date de création}
     
    {Ajouter un Tbutton, un Tlistbox et un Tedit}
     
    PROCEDURE FindFiles(Path: String; var ExtList, FilesList:  TStringList;
                             Const SortFlag : Integer = 0; Const  FullPathName : Boolean = false);
      VAR              FileInfo   : TSearchRec;
                             i               : Integer;
                            S               : string;
                            DateFormat : string;
     
     
              function IsWanted(FileName : String): Boolean;
                var        i : Integer;
                begin
                result := false;
                if (FileName='.') or (FileName='..') then exit;
                if ExtList.Count=0 then begin
                  result := true;
                  Exit;
                end;
                for i := 0 to ExtList.Count-1 do begin
                  if AnsiUpperCase(ExtractFileExt(FileName))=AnsiUpperCase(ExtList[i]) then begin
                    result := true;
                    Break;
                  end;
                end;
              end;
     
     
              function FileTimeToString(FileTime : TFileTime): String;
                var        SysTime    : TSystemTime;
                              LocalTime : TFileTime;
                begin
                result := '-------------------';
                if FileTimeToLocalFileTime( FileTime, LocalTime ) then begin
                  if FileTimeToSystemTime( LocalTime, SysTime ) then begin
                    result := DateTimeToStr(SystemTimeToDateTime(SysTime));
                  end;
                end;
              end;
     
     
      BEGIN
      Path := IncludeTrailingPathDelimiter(Path);
      if not DirectoryExists(Path) then Exit;
      DateFormat := ShortDateFormat;
      ShortDateFormat := 'yyyy/MM/dd';
      if FindFirst(Path+'*', faAnyFile, FileInfo)=0 then begin
        repeat
          if IsWanted(FileInfo.Name) then
          case SortFlag of
            0 : begin
                  if FullPathName then FilesList.Add(Path + FileInfo.Name)
                  else FilesList.Add(FileInfo.Name);
                end;
            1 : begin
                  if FullPathName then FilesList.Add(DateTimeToStr(FileDateToDateTime(FileInfo.Time)) + Path + FileInfo.Name)
                  else FilesList.Add(DateTimeToStr(FileDateToDateTime(FileInfo.Time)) + FileInfo.Name);
                end;
            2 : begin
                  if FullPathName then FilesList.Add(FileTimeToString(FileInfo.FindData.ftCreationTime) + Path + FileInfo.Name)
                  else FilesList.Add(FileTimeToString(FileInfo.FindData.ftCreationTime) + FileInfo.Name);
                end;
          end;
        Until FindNext(FileInfo)<>0;
      end;
      ShortDateFormat := DateFormat;//On rétablit le ShortDateFormat.
      if SortFlag <> 0 then begin
        FilesList.Sort;
        for i := 0 to FilesList.Count-1 do begin
          S := FilesList[i];
          Delete(S,1,19);//On élimine les dates.
          FilesList[i] := S;
        end;
      end;
      FindClose(FileInfo);
    END;
    Utilisation :

    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
     
    procedure TForm1.Button1Click(Sender: TObject);
     
    var  ExtList   : TStringList;
           FilesList : TStringList;
    begin
     
    ExtList    := TStringList.Create;
    FilesList := TStringList.Create;
    try
      ExtList.Add('.jpg');
      ExtList.Add('.bmp');
      FindFiles(Edit1.Text, ExtList, FilesList, 1, true);
      ListBox1.Items.Assign(FilesList);
    finally
      FilesList.Free;
      ExtList.Free ;
    end;
    end;
    Merci, je pense qu'il existe une solution.

    @+

    cincap

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    juillet 2006
    Messages
    11 410
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 11 410
    Points : 19 575
    Points
    19 575
    Par défaut
    Tu devrais exploiter le System.Classes.TStringList.CustomSort et stocker les informations fichiers dans Objects[] pour des comparaison date réelle et non en chaine
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre éprouvé
    Profil pro
    Inscrit en
    janvier 2006
    Messages
    1 882
    Détails du profil
    Informations personnelles :
    Âge : 66
    Localisation : Belgique

    Informations forums :
    Inscription : janvier 2006
    Messages : 1 882
    Points : 1 161
    Points
    1 161
    Par défaut
    @ ShaiLeTroll, merci de ton intervention.

    Je me suis rendu compte que le classement des fichiers cryptés avec la procédure décrite était bien respectée à chaque fois dans le Tlistbox, (le fichier qui a la date la plus faible était bien renseigné en premier).

    C'est moi qui me trompait dans le critère de recherche du coup, je vais fermer ce topic mais je tiens compte de ton conseil.

    Excellente fin de journée.

    @+,

    cincap

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [SP-2010]Recherche fichier par métadata
    Par Yassoubxl dans le forum Développement Sharepoint
    Réponses: 2
    Dernier message: 16/08/2011, 11h57
  2. recherche recursive de fichier par extension-date-heure
    Par grundraisin dans le forum VBScript
    Réponses: 10
    Dernier message: 16/09/2009, 13h48
  3. Rechercher fichier par extension
    Par Benoit_T dans le forum Langage
    Réponses: 3
    Dernier message: 06/07/2009, 17h46
  4. recherche d'un fichier par la date
    Par seb221 dans le forum VB 6 et antérieur
    Réponses: 15
    Dernier message: 07/02/2008, 13h40
  5. Réponses: 1
    Dernier message: 14/05/2006, 20h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo