Salut helmis,
voici une function que je viens de faire, permettant de récupérer tous les fichiers contenu dans le repertoire et ses sous-répertoires spécifié par le chemin passé en paramètre de la fonction.
function FindAllFiles(sDirectory : string) : TStringList;
var
srSrc : TSearchRec;
begin
Result := TStringList.Create;
// Garantit que le chemin d'accès se termine par un délimiteur.
sDirectory := IncludeTrailingPathDelimiter(sDirectory);
// Cherche la première instance d'un nom de fichier avec un ensemble
// d'attributs précis dans un répertoire spécifié.
if FindFirst(sDirectory + '*',faAnyFile,srSrc) = 0 then
begin
repeat
if (srSrc.Name <> '.') and (srSrc.Name <> '..') then
begin
if (srSrc.Attr and faDirectory) <> 0 then
Result.AddStrings(FindAllFiles(sDirectory + srSrc.Name))
else
Result.Add(sDirectory + srSrc.Name);
end;
Application.ProcessMessages;
until (FindNext(srSrc) <> 0);
FindClose(srSrc);
end;
end;
Il te reste plus qu'a l'adapter à tes besoins ;)
Bonne Prog,
Olivier.