如何导入一个选中的文件夹里的所有文件呢？？

Question

用TOpenDialog可以打开单个或者多个文件。。
但是我现在想选中文件夹后直接把文件夹里的所有文件名导入到TListBox中
怎么实现呢？？
就象千千静听中添加一整个文件夹的MP3那样

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then
  begin
    listbox1.Items.Assign(opendialog1.Files);
  end;
end;

Answer 2

以上楼主就可以.listbox1.Items.Assign(opendialog1.Files);

Answer 3

oushengfen(逸帆) 你有没有测试过，就说可以呢？

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
  opendialog1.InitialDir:=getcurrentdir();
  if opendialog1.Execute then
   for i:=0 to opendialog1.Files.Count-1 do
    listbox1.Items.Add(opendialog1.Files.Strings[i]);
end;