Recherche de fichiers dans des sous répertoires

**Mimi Bulles** · 25/04/2006, 11h22

Bonjour, je viens demander votre aide parce que je cale sur un problème

.
J'ai repris un morceau de code de la FAQ, celui qui permet de rechercher des fichiers. Je l'ai adapté à mes besoins, mais ça ne marche pas à 100 %

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
procedure GetFiles(path, ext:String; list: TStrings); 
Var S:TSearchRec;
Begin
  path:=IncludeTrailingPathDelimiter(path);
  ext := '*.'+ext;
  If FindFirst(path+ext,faAnyFile,S)=0
  Then Begin
    Repeat
      If (S.Name<>'.')And(s.Name<>'..')
      Then Begin
        If (S.Attr And faDirectory)<>0
          Then getFiles(path+S.FindData.cFileName, ext, list)
          Else begin
            list.Add(S.Name);
          end;
      End;
    Until FindNext(S)<>0;
    FindClose(S);
  End;
End;

Je voudrais, par exemple, lister tous les fichiers lnk qui se trouvent dans le menu 'Programmes' du bouton démarrer. Mais ma fonction ne descends pas dans les sous-répertoires !
Pouvez-vous m'aider ?

Je vous remercie

**MD Software** · 25/04/2006, 11h29

Tu as été voir là ?
http://nono40.developpez.com/sources/source0042/

**Mimi Bulles** · 25/04/2006, 11h39

Oui, je me suis d'ailleurs inspiré de ça. Mais dans la source de Nono, il fait une recherche sur tous les fichiers (*.*), or moi je ne le fais qu'avec *.lnk

En fait, je crois que seul *.* permet de lister les répertoires, mais je vois pas comment modifier ma fonction, puisque je dois faire une recherche sur tous les sous-répertoires avant d'en refaire une pour lister mes fichiers...

Comme c'est la première fois que j'utilise ce genre de fonction, je m'y perd un peu

**MD Software** · 25/04/2006, 13h53

Etrange ....
Tu es sûr qu'il passe dans le

Code :

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

If (S.Attr And faDirectory)<>0

**Lung** · 25/04/2006, 13h57

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
procedure GetFiles(path, ext:String; list: TStrings); 
Var S:TSearchRec;
Begin
  path:=IncludeTrailingPathDelimiter(path);
  ext := '.'+ext;
  If FindFirst(path+'*.*',faAnyFile,S)=0
  Then Begin
    Repeat
      If (S.Name<>'.')And(s.Name<>'..')
      Then Begin
        If (S.Attr And faDirectory)<>0
          Then getFiles(path+S.FindData.cFileName, ext, list)
          Else begin
              if AnsiLowerCase(ExtractFileExt(s.Name)) = AnsiLowerCase(ext) then
                 list.Add(S.Name);
          end;
      End;
    Until FindNext(S)<>0;
    FindClose(S);
  End;
End;

**Pedro** · 25/04/2006, 13h58

Salut

Pour moi, au contraire c'est normal que ça ne fonctionne pas... A moins d'avoir un répoertoire qui s'appelle XXXXX.lnk, ça ne marchera pas...
A la limite, tu peux faire un petit test de rien du tout pour savoir si l'extension est la bonne avec ExtractFileExt

[edit]
Grillé par Lung

**Tardiff Jean-François** · 25/04/2006, 13h59

Bonjour,
le problème vient peut être de votre variable ext

normalement vous devez rechercher '*.*' de façon a voir tous les sous-repertoire, puis tester les extention des fichiers pour savoir si le fichier est a ajouter a la liste.

si votre recheche est sur "'*.' + ext" vous rechercher les fichiers et les sous-répertoire limité par votre filtre.