1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Fichier / Disque
  5. Enumerer les fichier d'un repertoire

Enumerer les fichier d'un repertoire

Soyez le premier à donner votre avis sur cette source.

Vue 5 755 fois - Téléchargée 491 fois

Télécharger le projet
Commenter

Description

Ce code permet d'enumerer tout les fichiers d'un répertoire.

Il vous faut :
- button
- edit
- listbox
- delphi ;-)

Source / Exemple : 


var
sr : TSearchRec;
trouve : integer;

begin
listbox1.Clear;
trouve := FindFirst(Edit1.Text +'\*.*', faAnyFile, sr);
while trouve = 0 do
begin
ListBox1.Items.Add(sr.Name);

trouve := FindNext(sr); 
end; 
FindClose(sr); 

end;

Conclusion :


Vous pouvez telecharger un exemple.
Dans le ZiP
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_grandvizir
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
 10
Salut DelphiCool, je te propose un autre code plus complet:

var FicSTL : TStringList;
procedure EnumFiles(Dir,Mask:string);
var AttrWord : integer;
Pntr : string;
Recherche : TSearchRec;
begin
AttrWord:=faReadOnly or faArchive;
ChDir(Dir);
FicSTL.Clear;
while Mask<>'' do
begin
//PREND LE PREMIER MASQUE
if Pos(';',Mask)=0 then Pntr:=Mask
else Pntr:=Copy(Mask,1,Pos(';',Mask)-1);
//CHERCHE LES FICHIERS REPONDANT AU MASQUE
if FindFirst(Pntr, AttrWord, Recherche)=0 then
begin
repeat
FicSTL.Add(ExtractFileName(Recherche.Name));
until FindNext(Recherche)<>0;
sysutils.FindClose(Recherche);
end;
//PASSE AU FILTRE SUIVANT S'IL Y A
if Pos(';',Mask)=0 then Break
else Mask:=Copy(Mask,Pos(';',Mask)+1,Length(Mask));
end;
end;
initialization
FicSTL:=TStringList.Create;
finalization
FicSTL.Free;
end.

Ca gère les masques. Alors on pourra faire :
EnumFiles('c:\dossier\','*.exe;*.dll');
ListBox1.Items.Clear;
ListBox1.Items.AddStrings(FicSTL);

Si je passe par FicSTL, c'est juste que c'est une variable de passage utile dans mon N°32533.

Ce bout de code est tiré de la VCL, remanié pour manier des STRING au lieu des PCHAR.
Signaler
dayday42
Messages postés
2
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
30 janvier 2004
Bonjour
cette source est très bien et très complète, elle m'a bien aidée et j'en suis contente
Thanks for great source!
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DelphiCool)