Discussion :

[Laskar]

Salut à tous.

Savez-vous comment, avec Delphi, on peut faire une recherche de fichiers dans un dossier à l'aide de plusieurs critères ?
Par exemple, je voudrais sélectionner tous les fichiers dont l'extension est .jpg OU dont l'extension est .tif
La tentative ...

Code :

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

if  FindFirst('C:\*.jpg' OR 'C:\*.tif' ,faAnyFile,Info) = 0 Then ...

... ne fonctionne évidemment pas.

Merci

[archonte]

Salut !

le masque de recherche est de type string ! donc pas de test logique applicable.
Par contre, tu peux chercher tous les fichiers de ton répertoire et ne conserver que ceux qui répondent à tes critères :

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
 
Var Extensions : string;
// ...
 
Extensions := '.jpg;.tif';
// ...
 
if FindFirst(Path + '*.*', faAnyFile, Info) = 0 then
    try
      repeat
        if AnsiPos(ExtractFileExt(Info.Name), Extensions) > 0 then TaListeDeFichiers.Add(Path + Info.Name);
      until FindNext(Info) <> 0;
    finally
      FindClose(Info);
    end;