Bonjour,

j'utilise la fonction FindFirst en récursif pour scruter les fichiers et sous répertoires d'un répertoire donné.
J'aimerais, dans chaque sous-répertoire, créer un fichier html qui comprend tous les fichiers et les dossiers présents.
Chaque sous répertoire contiendrait un fichier html qui afficherait les dossiers et fichiers contenus dans celui-ci.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TForm1.Button1Click(Sender: TObject);
var Path: string;
begin
if SelectDirectory('Répertoire', '', Path) = true then
  begin
    Browse(Path);
  end;
end;
 
procedure TForm1.Browse(Path: string);
var Rec: TSearchRec;
    sPath: string;
begin
Path := IncludeTrailingPathDelimiter(Path);
if FindFirst(Path + '*.*', faAnyFile, Rec) = 0 then
  repeat
  if (Rec.Name <> '.') and (Rec.Name <>  '..') then
    begin
    if (Rec.Attr and faDirectory) <> 0 then
      begin
      sPath := Path + Rec.FindData.cFileName;
      Browse(sPath);
      end
    else
      begin
      Memo.Lines.Add('<a href="' + Path + Rec.FindData.cFileName + '">'+ Rec.FindData.cFileName + '</a><br>');
      end;
    end;
  until FindNext(Rec) <> 0;
  Memo.Lines.SaveToFile(Path + '\index.html');
  Memo.Lines.Clear;
FindClose(Rec);
end;
... qui ne marche pas !

Vous auriez une idée ?

Merci.

Selticq.