如何根据文件夹名找到硬盘上的文件夹并把其下的所有文件名装到listbox中？

Question

有代码更好

Answer 1

uses
  Scripting_TLB, ActiveX;{$J+}{$R *.dfm}procedure TMainForm.ButtonClick(Sender: TObject);
var
  FSO: IFileSystem;
  _File: OleVariant;
  Enum: IEnumVARIANT;
  NumElements: ULong;
const
  FolderPath = 'C:\Test'; //你的文件夹名
begin
  FSO := CoFileSystemObject.Create;
  if FSO.FolderExists(FolderPath) then
  begin
    Enum := FSO.GetFolder(FolderPath).Files._NewEnum as IEnumVARIANT;
    while Enum.Next(1, _File, NumElements) = S_OK do
    begin
      ListBox.Items.Add((IUnknown(_File) as IFile).Path);
    end;
  end;
end;

Answer 2

用到了接口
ulong是何类型？

Answer 3

老冯的方法需要客户的机器有FSO组件比较常用的方法是用FindFirst, FindNext, FindClose Delphi的帮助中有例子。

Answer 4

SendMessage(ListBox1.Handle, LB_DIR, $FFF, integer(PChar('c:\*.*')));

Answer 5

这个是最简单的吧，就一行代码搞定
具体查关于 LB_DIR 的API函数

Answer 6

这个是最简单的吧，就一行代码搞定
===========
那就写出来吧晕，不是写了吗？
SendMessage(ListBox1.Handle, LB_DIR, $FFF, integer(PChar('c:\*.*')));