Questions sur la navigation dans les répertoires

**Cl@udius** · 22/10/2007, 18h59

RE,

Envoyé par belle5656

Si tu veux, je dois supprimer des dossiers, et des fichiers.
Mais, ces fichiers, ne sont pas forcement dans les dossier qui sont recherchés..
Et les dossiers, ne contiennent pas forcemenrt les fichiers recherchés

.

A oui effectivement, je suis parti sur le principe qu'on ne supprimait uniquement les fichiers présent dans les dossiers énumérés.
Et de plus je ne supprime pas les dossiers.

Envoyé par belle5656

Mais je pense qu'il me restera a modifier quelmques trucs du code pour que ce soit bon

Ya plus ka !!

@+ Claudius

**belle5656** · 22/10/2007, 19h35

Re,

Yep, je sis en bonne voie, car les dossiers sont tous trouvés ainsi que les fichiers.

Par contre, je ne sais pourquoi, j'ai une erreur sur cette ligne:

SLFiles.Add(Folder + Files[i]);

code original de Cl@udius:

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
procedure SearchInFolder;
  var
    I, J: Integer;
  begin
    J := 0;   // Compteur de fichiers trouvés
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
        // Un des fichiers cibles a été trouvé
        Form1.Memo1.Lines.Add('  Fichier: ' + Files[i] + ': trouvé !');
        SLFiles.Add(Folder + Files[i]);
        Inc(J);
      end;
    if J = 0 then
      Form1.Memo1.Lines.Add('  Aucun fichier trouvé');
  end;

code modifié by moi:

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
procedure ScruterDossiers(Folder: string);
 
  // Procédure de recherche dossiers + fichiers
  procedure SearchInFolder;
  var
    I, J: Integer;
  begin
J := 0;   // Compteur de fichiers trouvés
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
        // Un des fichiers cibles a été trouvé
        Form1.Memo1.Lines.Add( folder  + Files[i] + ': trouvé !');
         SLFiles.Add(Folder + Files[i]);
Inc(J);
 
          end;
      for I := Low(Folders) to High(Folders) do
      if directoryExists(Folder + Folders[i]) then
      begin
        // Un des fichiers cibles a été trouvé
        Form1.Memo1.Lines.Add( folder  + Folders[i] + ': trouvé !');
SLFolders.Add(Folder + folders[i]);
Inc(J);
      end;
 if J = 0 then
      Form1.Memo1.Lines.Add('  Aucun fichier trouvé');
  end;

Pourtant, cela devrait fonctionner non?

**ero-sennin** · 22/10/2007, 22h12

Bonsoir,

Je n'ai pas Delphi sous la main ce soir ...

Peux tu nous dire ce que le compilateur affiche comme erreur afin que l'on puisse avoir une idée de la nature de l'erreur ?

Merci

**ero-sennin** · 22/10/2007, 22h27

Pour moi, tu as surement oublié de déclarer la StringList ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var
  Form1: TForm1;          /// Variable d'instance de la Fiche
  NbFolders: Integer;     /// Nombre de dossiers trouvés lors de la recherche
  SLFiles: TStringList;   /// StringList contenant les fichiers trouvés
 
const
  /// Dossiers cibles
  Folders: array[0..3] of string = ('Dossier1', 'Dossier2', 'Dossier3', 'Dossier4');
  /// Fichiers à rechercher dans les dossiers cibles
  Files: array[0..2] of string = ('Unit1.dcu', 'Unit2.dcu', 'Unit3.dcu');
 
implementation