Discussion :

[Art19]

bonjour a tous,

je voudrais rechercher tous les fichiers du disque E:\ commencant par les lettres 'ES'.

je pensais utiliser SelectDirectory et FindFirst mais je ne sais que parcourir un repertoire et non pas tout le disque recursivement.

Vous savez comment je pourrais faire?

Merci,

Arthur

[philnext]

Je pense que le plus simple c'est de se pointer sur E:\ de reagrder les fichiers puis de parcourir les repertoires recursivement comme ici : http://delphi.developpez.com/sources...no40source0042

[Art19]

et est ce que tu saurais verifier que le chemin vers le fichier contient une chaine du genre '\1M'?
dans ton lien c'est quelle fonction?

[philnext]

Je ne suis pas sur d'avoir compris mais si tu connais ton chemin de fichier tu utilise la fonction

Code :

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

pos('\1M','nom_de_mon_repertoire')<>0

[Art19]

son exemple ne fonctionne pas pour les fichiers autres que *.* par exemple pour les .txt il ne va chercher que dans le repertoire en cour

[SergioMaster]

il faut utiliser la recursivité

j'ai trouvé ça il y a longtemps dans un fichier d'aide delphi (LDELPHI.HLP)

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
procedure SearchTree;
  var
    SearchRec: TSearchRec;
    DosError: integer;
    dir: string;
  begin
    GetDir(0, dir);
    if dir[length(dir)] <> '\' then dir := dir + '\';
    DosError := FindFirst(FileName, 0, SearchRec);
    while DosError = 0 do begin
      try
        FilesFound.add(dir + SearchRec.name);
      except
        on EOutOfResources do begin
          ShowMessage('Too many files.');
          abort;
 
        end;
      end;
      DosError := FindNext(SearchRec);
    end;
    {Now that we have all the files we need, lets go to a subdirectory.}
    DosError := FindFirst('*.*', faDirectory, SearchRec);
    while DosError = 0 do begin
      {If there is one, go there and search.}
      if ((SearchRec.attr and faDirectory = faDirectory) and
        (SearchRec.name <> '.') and (SearchRec.name <> '..')) then begin
        ChDir(SearchRec.name);
        SearchTree; {Time for the recursion!}
        ChDir('..'); {Down one level.}
 
      end;
      DosError := FindNext(SearchRec); {Look for another subdirectory}
    end;
  end; {SearchTree}
 
 
 
{ This code came from Lloyd's help file! }