Folders i ListBox

Din ListBox hedder ListBox og din Edit hedder Edit:

procedure TForm1.FormActivate(Sender: TObject);
var
    fname : string;
begin
    fname:=ExtractFilePath(Application.ExeName)+'\import\*.*';
    SendMessage(ListBox.Handle, LB_DIR, DDL_DIRECTORY,LongInt(fname));
end;

procedure TForm1.ListBoxClick(Sender: TObject);
var
    sr : TSearchRec;
  Path : string;
begin
    Path:=ListBox.Items[ListBox.ItemIndex];
  Path:=Copy(Path,2,Length(Path)-2);
  Path:=ExtractFilePath(Application.ExeName)+'\import\'+Path+'\*.txt';
    if FindFirst(Path,faAnyfile,sr)=0 then
      Edit.Text:=sr.Name
  else
      Edit.Text:='Ingen txt fil';
    FindClose(sr);
end;

Det virker bare som det skal - Takker :-)

Smid et svar og du får point.

ok