Alle filer i en mappe

Jeg bruger Delphi 7 bør jeg måske lige sige..

Prøv det her:

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Dir: String;
begin
  Dir := 'C:\myfolder';
  ListBox1.Clear;
  if FindFirst(Dir + '\*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        ListBox1.Items.Add(Dir+'\'+SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;
end;

Eller det her hvis det kun skal være fil navnet:

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Dir: String;
begin
  Dir := 'c:\myfolder';
  ListBox1.Clear;
  if FindFirst(Dir + '\*.*', faAnyFile, SearchRec) = 0 then
    repeat
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
      begin
        ListBox1.Items.Add(SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;
end;

Da du nu siger listbox kan denne kode også bruges:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
ListBox1.Clear;
s := 'c:\*.*';
ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
end;

Det virker godt...tak

Men hvis jeg bruger

faDirectory

Så viser den både mapper og filer....

Kan man få den til kun at vise mapperne?

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  Dir: String;
begin
  Dir := 'C:\myfolder';
  ListBox1.Clear;
  if FindFirst(Dir + '\*', faDirectory, SearchRec) = 0 then
    repeat
      if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and
      ((SearchRec.Attr and faDirectory) <> 0) then
      begin
        ListBox1.Items.Add(SearchRec.Name);
      end;
    until FindNext(SearchRec) <> 0;
end;

Det skulle kun vise mapperne :)

Det virker,,, takker...