Filepfad aus Ordner auslesen geht nicht richtig bei Win98

[Matze]

Hi!

Mit dieser procedur lese ich die Dateipfade eines Ordners in eine ListBox:

Code:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  s, path: string; 
  i   : integer; 
  stl : tstringlist; 
begin 
   path:='c:\Test\*.*'#0; 
   s := path; 

   ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1])); 
   listbox1.ItemIndex:=0; 

  stl:=tstringlist.Create; 
  try 
    for  i := 0 to  listbox1.items.count - 1 do 
    begin 
      stl.Add(listbox1.items.strings[listbox1.itemindex]); 
      listbox1.ItemIndex:=listbox1.ItemIndex+1; 
    end; 
    listbox1.Items.CommaText:=stl.commatext; 
  finally 
    stl.Free; 
  end; 
end;

Bei WinXP geht's einwandfrei.
(auch: C:\Windows\System32: 3052 Files)

Aber bei Win98 zeigt es den Inhalt mancher Ordner an, aber nicht aller. Ich habe einen Ordner, in dem ca. 150 .JPG-Dateien meiner Diagitalkamera drin sind, die es aber nicht anzeigt - kein einziges Bild!!
In manchen Ordner zeigt es meine Bilder von der selben kamera an.
Auch wenn ich in dem 150-Bilder-Ordner 149 lösche, dann zeigt es immer nocht nichts.

Woran liegt das, brauche es dringend.

Gruß Matze