CollectMatchingFiles
Renvoie la liste de fichiers répondant à un masque d'un répertoire donné.
Syntaxe
procedure CollectMatchingFiles(directory: String; fileMask: String; files: TStrings; withSubDirs: Boolean)
directory: Répertoire où chercher les fichiers
fileMask: Masque de recherche des fichiers
files: liste des fichiers trouvées
withSubDirs: recherche ou non dans les sous-répertoires
Remarques
Les chemins complets des fichiers sont ajoutés à la liste fournie.
La paramètre directory ne doit pas être une chaîne vide.
Préférer EnumerateDir.
Exemples
Cet exemple renvoie la liste des fichiers jpg et png qui commencent par Image dans le dossier C:\temp\.
var files := TStrings.Create;
CollectMatchingFiles('C:\temp\', 'Image*.jpg', files, False);
CollectMatchingFiles('C:\temp\', 'Image*.png', files, False);
Print(files.Text);
CollectMatchingFiles('C:\temp\', 'Image*.jpg', files, False);
CollectMatchingFiles('C:\temp\', 'Image*.png', files, False);
Print(files.Text);