Discussion :

[Brain3D]

Bon voila j'ai lu la FAQ mais je n'arrive pas a faire ce que je veux.

Je veux dans un Tlistbox afficher tout les sous-répertoire que contien un répertoire donnée. je veux seulement le nom du répertoire affiché et non tout le lien:

Exemple :

C:\Exemple\Repertoire test\Test1\
C:\Exemple\Repertoire test\Test2\
C:\Exemple\Repertoire test\Test3\

Donc je dis dans le programme d'aller lire dans C:\Exemple\Repertoire test\ et dans le Tlistbox il devrait afficher seulement : Test1, Test2, Test3.

Voila c'est tout ce que j'ai besoin de faire mais je n'y arrive pas!

Merci!

[ero-sennin]

Salut,

Si tu as lu l'entrée de la FAQ, cette dernière me semble bien détaillée pour dire d'arriver à ce que tu veux

Voici la modification :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
Var Chemin : String;
    Info   : TSearchRec;
begin
  ListBox1.Items.Clear;
  { Pour être sur que la barre oblique finisse le nom du chemin }
  Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
 
  { Recherche de la première entrée du répertoire }
  if FindFirst(Chemin+'*.*',faAnyFile,Info)=0 then
  begin
    repeat
      { Les répertoires sont affichés dans ListBox1 }
      if not((Info.Attr and faDirectory)=0)then
        if((Info.Name<> '.') and (Info.Name<> '..'))then
          ListBox1.Items.Add(Info.FindData.cFileName)
 
      { Il faut ensuite rechercher l'entrée suivante }
    until FindNext(Info)<>0;
 
    { Dans le cas ou une entrée au moins est trouvée il faut }
    { appeler FindClose pour libérer les ressources de la recherche }
    FindClose(Info);
  end;
end;

En espérant t'avoir aidé
A+

[Brain3D]

J'ai pas vue ca dans le FAQ, j'ai du regarder les yeux fermé mais bon!

J'ai tester et ca marche et c'est exactement ce que je voulais!!

Merci beaucoup!

[ero-sennin]

Ba de rien
N'oublies pas le petit

[Brain3D]

J'ai l'air con mais comment on met le Résolu ?

J'ai trouvé!