Discussion :

[Mickey.jet]

Bonjour....

Je suis dans un projet VCL et je souhaite récupérer dans une listBox tout les répertoires d'un répertoire donnée et dans une deuxieme listbox tout les fichiers de ce meme répertoire donnée...

Est ce possible et si oui comment dois je m'y prendre?

Merci d'avance...

[Pascal Jankowski]

Regarde du côté des fonctions findFirst et findNext, et selon l'attribut tu pourras en déduire si c'est un fichier ou un directory

Code :

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

1
2
3
4
5
6
7
8
9
10
var DirInfo: TSearchRec;
begin
  if findFirst('*.*',faAnyFile,DirInfo) = 0
  then repeat
            if DirInfo.Attr and faDirectory = faDirectory
         then //c'est un directory ajout dans la listBox
              else //c'est un fichier ajout dans la listBox
         until FindNext(DirInfo) = 0;
end;

Tu récupères le nom du fichier par dirInfo.Name.
Regarde ensuite du côté des fonction ExtractFileName,ExtractFilePath... pour récupérer les informations contenues dans un nom de fichier (fileName,Path...)
Donc regarde de près la définition de TSearchRec et tu connaîteras tout ce que tu peux récupérer (taille, date...)

Attention, tout ce qui concerne les attributs de sécurité ACE, ne sont pas accessibles par cette méthode.

Couplé à cela tu peux également récupérer les dates de création, modification et de derniers accés au fichier. C'est une QR de la FAQ dont voici le code.

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
26
27
28
29
30
31
32
// Retourne les informations concernant les dates d'un fichier
// Date création, modification et dernier accés
function GetFileTimes(const FileName: string; var Created: TDateTime;
  var Accessed: TDateTime; var Modified: TDateTime): Boolean;
var
  h: THandle;
  Info1, Info2, Info3: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  Bias: Double;
begin
  Result := False;
  Bias   := 0;
  h      := FileOpen(FileName, fmOpenRead or fmShareDenyNone);
  if h > 0 then
  begin
    try
      if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then
        Bias := TimeZoneInfo.Bias / 1440; // 60x24
      GetFileTime(h, @Info1, @Info2, @Info3);
      if FileTimeToSystemTime(Info1, SysTimeStruct) then
        Created := SystemTimeToDateTime(SysTimeStruct) - Bias;
      if FileTimeToSystemTime(Info2, SysTimeStruct) then
        Accessed := SystemTimeToDateTime(SysTimeStruct) - Bias;
      if FileTimeToSystemTime(Info3, SysTimeStruct) then
        Modified := SystemTimeToDateTime(SysTimeStruct) - Bias;
      Result := True;
    finally
      FileClose(h);
    end;
  end;
end;

Par ailleurs, si tu désires effectuer un traitement sur tous les fichiers d'une arborescence, voici le code d'une déscente récursive. A adapter selon tes besoins, répertoire initial etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure lectureRecursive;
var DirInfo: TSearchRec;
begin
  if findFirst('*.*',faAnyFile,DirInfo) = 0
   then repeat
          if DirInfo.Attr and faDirectory = faDirectory
            then lectureRecursive
            else //Mon traitement sur fichier
          until FindNext(DirInfo) = 0;
end;

Cordialement

[evarisnea]

vous pouvez aussi regarder du coté des composant Liste de répertoires et Liste de fichiers (désolé si je ne souviens pas du nom exact des composants).

[Mickey.jet]

Et est ce que je peux connaitre tout les répertoire qui sont au niveau juste au dessus d'un répertoire donné....

[Pascal Jankowski]

Il suffit d'utiliser un combiné entre la fonction chdir et ce que je t'ai donné plus haut soit findFirst et findNext en filtrant avec faDirectory

Donc procedure à mettre en place
- 1 chdir(le_répertoire_donné);
- 2 chdir('..'); // pour remonter d'un niveau dans l'arborescence
- 3 Faire un FindFirst/FindNext et en extraire la liste des répertoires

Cordialement

[Mickey.jet]

Alors voila ce que je fais....

Voici mon arborescence:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
           c:
           |
   ---------------     
  |                    |
 repertoire1      repertoire2
                            |
                    ------------
                   |                |
             repertoire3    repertoire4

voici mon code:

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
 
var
   TSR_RepertoireNiveau1   : TSearchRec;
   TSR_RepertoireNiveau2  : TSearchRec;
begin
  If FindFirst('c:\'+'*.*',faDirectory,TSR_RepertoireNiveau1)=0 Then
   begin
     repeat
          ListBox1.Items.Add(TSR_RepertoireNiveau1.FindData.cFileName);
          If FindFirst('c:\'+TSR_RepertoireNiveau1.FindData.cFileName+'\'+'*.*',faDirectory,TSR_RepertoireNiveau2)=0 Then
            begin
              repeat
                  ListBox2.Items.Add(TSR_RepertoireNiveau2.FindData.cFileName);
              Until FindNext(TSR_RepertoireNiveau2)<>0;
            end;
            FindClose(TSR_RepertoireNiveau2);
     Until FindNext(TSR_RepertoireNiveau1)<>0;
   end;
   FindClose(TSR_RepertoireNiveau1);

Et ca... ca ne marche pas au niveau de mon repertoireNiveau2 je récupere tout (niveau 1 +2)....

Qu'est ce qu'il ne va pas dans mon code???

[Pascal Jankowski]

Il faudrait que ta procédure soit récursive, ce serait plus simple à gérer.

[Mickey.jet]

Il faudrait que ta procédure soit récursive, ce serait plus simple à gérer.

???

[Mickey.jet]

Alors j'ai trouvé pourquoi je récupéré n'importe quoi...
en faite mon arborescence est la suivante...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
           c:
           |
   ---------------     
  |                    |
 repertoire1      repertoire2
                            |
                    -------------------------------
                   |                |                         |
             repertoire3    repertoire4               Mon programme

En faite je fais la recherche de mes répertoire depuis mon programme et non depuis le c: (car apres je vais faire un exe et je ne veux pas de beugue )

Mon programme et le suivant:

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
 
<div style="text-align: left;">var
   TSR_RepertoireNiveau1   : TSearchRec;
   TSR_RepertoireNiveau2  : TSearchRec;
begin
  If FindFirst('.\.\'+'*.*',faDirectory,TSR_RepertoireNiveau1)=0 Then
   begin
     repeat
          ListBox1.Items.Add(TSR_RepertoireNiveau1.FindData.cFileName);
          If FindFirst('.\.\'+TSR_RepertoireNiveau1.FindData.cFileName+'\'+'*.*',faDirectory,TSR_RepertoireNiveau2)=0 Then
            begin
              repeat
                  ListBox2.Items.Add(TSR_RepertoireNiveau2.FindData.cFileName);
              Until FindNext(TSR_RepertoireNiveau2)<>0;
            end;
            FindClose(TSR_RepertoireNiveau2);
     Until FindNext(TSR_RepertoireNiveau1)<>0;
   end;
   FindClose(TSR_RepertoireNiveau1);</div>

Or dans ma listBox1 il m'affiche:

Code :

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

1
2
3
4
5
 
  .
  ..
  repertoire1
  repertoire2

Le probleme c'est ces deux point récupéré au début je ne sais pas d'ou ils viennent.... (je pensé en fait que pour remonter d'un niveau dans une arborescence il fallait ecrire ".." mais ca marche pas j'ai du faire ".")

[Pedro]

http://cchatelain.developpez.com/art...iers/parcours/

[Bloon]

???

Une procédure (ou fonction) récursive est une procédure qui s'appelle elle-même.

Exemple :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
 
// Crée la liste des fichiers d'un répertoire
// extensions doit être du style '.bmp;.jpg;.gif' (avec le . et séparées par un ;)
// ou vide si toutes les extensions sont traitées
procedure createFilesList(from: string; list: TStrings; sous_rep : boolean; masque, extensions : string);
var
  sr: TSearchRec;
  ext : TStringList;
begin
  // ajout du \ final si besoin
  if (from <> '') and (from[length(from)] <> '\') then
    from := from + '\';
 
  // on crée une liste des extensions souhaitées
  ext := TStringList.Create;
  ext.Delimiter := ';';
  ext.DelimitedText := extensions;
  try
    if FindFirst(from + masque, faAnyFile, sr) = 0 then
    begin
      repeat
        if (sr.Name <> '.') and (sr.Name <> '..') then
        begin
          // si le fichier fait partie de la liste des extensions autorisées
          if (ext.Count = 0) or (ext.IndexOf(ExtractFileExt(sr.Name)) > -1) then
            list.Add(from + sr.Name);
          if sous_rep and ((sr.Attr and faDirectory) <> 0) then
          begin
            createFilesList(from + sr.Name,list,true,masque,extensions);
          end;
        end;
      until FindNext(sr) <> 0;
      SysUtils.FindClose(sr);
    end;
  finally
    ext.Free;
  end;
end;

Bloon

[Mickey.jet]

Oui mais pourquoi cette ligne:

Code :

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

1
2
 
if (sr.Name <> '.') and (sr.Name <> '..') then

Pourquoi il récupére systematiquement un '.' et un '..'???

[Bloon]

Oui mais pourquoi cette ligne:

Code :

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

1
2
 
if (sr.Name <> '.') and (sr.Name <> '..') then

Pourquoi il récupére systematiquement un '.' et un '..'???

Quand tu fais un dir en ligne de commande, tu récupère systématiquement un répertoire . (qui représente le répertoire courant) et un répertoire .. (qui représente le répertoire parent). Il est donc inutile de les traiter.

Bloon