Salut à tous

J'essaie de visualiser tous les fichiers sur mon disc mais je n’arrive pas à faire fonctionner cette procedure.

Merci pour la réponse
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 scan;
var
 f : Tsearchrec;
begin
  findfirst('C:\',Directory, f);
  while (doserror = 0) do
  begin
    with f do
    if (f.name <> '.') and (f.Name <> '..') then
    begin
       scan;
     end
     else writeln(f.name);
    end;
    findnext(f);
end;