Discussion :

[colorid]

Bonjour

Si je fais :

Code :

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

    DirectoryListBox1.Directory:= extractFilePath(application.exename);

J'obtiens la liste en arborescence de tous les répertoires depuis la racine jusqu'à celui de l'exécutable suivi des répertoires contenus dans ce dernier.
Comment obtenir uniquement les répertoires contenus dans le directory de l'exécutable ?


Si quelqu'un sait qu'il ne me laisse pas mourir ignorant

[BuzzLeclaire]

Salut,

FindFirst ,FindNExt...

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
 
  Dossier:TSearchRec;
Begin
 
  If FindFirst('C:\windows\*.*',faAnyFile,Dossier)=0 Then // Recherche de la première entrée du répertoire
  Begin
    Repeat
      If (Dossier.Name<>'.')And(Dossier.Name<>'..') Then // ignorer les . et .. Sinon la procédure va boucler
      Begin
        If ((Dossier.Attr And faDirectory)<>0) Then
        Begin
          end;
      end;
    // Recherche du suivant
    Until FindNext(Dossier)<>0;
    FindClose(Dossier);
  End;

A toi de jouer pour remplir un Memo ou un TStringlist...

[colorid]

Ca marche