Il faut utiliser le fonction findfirst
ex :
Procedure ListFich(sNomRep : String; listFich : TStringList);
var
srR: TSearchRec;
beginif (FindFirst(sNomRep + '\'*.*', faAnyFile, srF)=0) then
begin
listFich.Add(sNomRep + '\' + srF.name);
while FindNext(srF) = 0 do
begin
sltFich.Add(sNomRep + '\' + srF.name);
end;
FindClose(srR);
end;
-------------------------------
Réponse au message :
-------------------------------
Est-ce que quelqu'un sait comment puis-je faire pour récupérer la liste des fichier sous forme de string ou de liste contenus dans un répertoire ???
|