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. :D
(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

[Matze]

OK, es hat sich erledigt. Danke für die vielen Posts. :zwinker:

[Luckie]

Und woran lag es? :roll:

[Matze]

Marco hat mir freundlicherweise einen anderen Code, als meinen Ursprünglichen gegeben.
Vielen Dank, Marco! :D

Code:

const
  FileExt = '*.*';
var
  SearchRec : TSearchRec;
  Dir: string;
begin
  ListBox1.Clear;

  Dir := IncludeTrailingBackslash(Edit1.Text);
  ListBox1.Items.BeginUpdate;
  if FindFirst(Dir + FileExt, faAnyFile, SearchRec) = 0 then
  try
    ListBox.Items.Add(SearchRec.Name);
    while FindNext(SearchRec) = 0 do
    ListBox1.Items.Add(SearchRec.Name);
  finally
    FindClose(SearchRec);
  end;
  ListBox1.Items.EndUpdate;
end;

Gruß Matze