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é
    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
    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é
    @ 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

###raw>template_hook.ano_emploi###