Repertoire / sous rep

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Repertoire / sous rep

Pookie

bonjour,
je cherche une fonction qui me listerait tous les fichiers de tous les repertoires et sous repertoires.
j arrive a lister des fichier d'un repertoire cible, mais pas des sous rep

voila mon code :

Code :

/ charge les fichiers mails dans un tstringlist
function Lister_fichiers(chemin_ : string) : tstringlist;
var
sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs :=0;
Result:= TStringList.Create;
FileAttrs := FileAttrs + faArchive;
if FindFirst(chemin_, FileAttrs, sr) = 0 then
begin
result.add(sr.name);
end;
while FindNext(sr) = 0 do
begin
result.add(sr.name);
end;
FindClose(sr);
end;

cette fonction me liste et me stock le nom des fichiers dans un tsringlist.

merci de l'aider

Message édité par Pookie le 10-06-2005 à 10:12:00

Publicité

antp

Super Administrateur
Champion des excuses bidons

Quand parmis les fichiers tu trouves un dossier, tu rappelles ta fonction sur ce dossier, qui en listera le contenu, etc.
Dans ta liste actuelle tu n'as pas les dossiers ? Mets faAnyFile à la place de faArchive, et ensuite dans la bouche fais le test sur son type (dossier ou fichier, archive ou non si nécessaire)

Pour ta boucle, tu peux éviter de dupliquer le code en la faisant comme ça :

Code :

code := FindFirst(chemin_, FileAttrs, sr);
while code = 0 do
begin
result.add(sr.name);
code := FindNext(sr);
end;

Message édité par antp le 10-06-2005 à 12:32:27

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Delphi/Pascal

Repertoire / sous rep

Sujets relatifs
comment lire le contenu d'un répertoire en actionscript?	repertoire courant [resolut]
[Tomcat] répertoire non trouvé	nbre de fichiers dans un répertoire
Comment gérer le repertoire WEB-INF d'un projet comportant plusieurs s	[java] JTree : noeud vide qui resemble à un repertoire ?
[Batch]Suppression . d'un répertoire	monitoring de repertoire avec DirectoryPoller
Exporter une table vers un repertoire de l'utilisateur courrant	lister repertoire distant - Serv Linux vers Serv 2000
Plus de sujets relatifs à : Repertoire / sous rep

Page générée en 0.049 secondes