lister un repertoire, oui mais il ne veut pas enlever le .

**zax-tfh** · 03/03/2005, 17h56

Salut a tous,

Je me sers actuellement de l'exemple dans la faq pour lister un repertoire.
Le soucis c'est que je ne veux pas du . et .. en debut de listage. J'avais donc fait un if tout bete mais ce if ne passe bizarrement pas pour le .

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
 
procedure Tupload.Button3Click(Sender: TObject);
Var Chemin : String;
    Info   : TSearchRec;
begin
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
  Chemin := IncludeTrailingPathDelimiter(Edit1.Text);
  If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then
  Begin
    Repeat
    if ((Info.FindData.cFileName<>pchar('.'))and(Info.FindData.cFileName<>'..')) then
      begin
      If Not((Info.Attr And faDirectory)=0)
        Then ListBox2.Items.Add(Info.FindData.cFileName)
        Else ListBox1.Items.Add(Info.FindData.cFileName)
      end;
    Until FindNext(Info)<>0;
    FindClose(Info);
  End;
end;

Qu'est-ce qui cloche la dedans ???? je comprend plus... Meme les trucs qui paraissent simple me font bloquer... faut vraiment que je me repose ^^
Merci
@++