如何把一个目录下的所有文件名取到一个LIST里呢

Question

如何判断一个目录下文件的个数 并把名字取到LIST里呢!
谢谢

Answer 1

使用TFileListBox吧，简单无须麻烦。

Answer 2

我做了个托盘程序,需要在固定的时间去检查文件夹 不能用TFileListBox

Answer 3

那就调用API：
FindFirstFile
FindNextFile

Answer 4

用 FindFirstFile
FindNextFile

Answer 5

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

Answer 6

要监视文件夹就要使用Notify来监视，网上有好些监视目录的例子

Answer 7

调用API遍历这个目录，取文件名。

Answer 8

我做了个托盘程序,需要在固定的时间去检查文件夹 不能用TFileListBox
????
楼主，你TFileListBox别显示就得了。

Answer 9

FindFirst、FindNext的实现//找到指定目录下的所有文件，放入TStringList中
procedure FindAllFiles(APath: string; sl: TStringList);
var
  SearchRec: TSearchRec;
begin
  if FindFirst(APath + '\*.*', faAnyFile, SearchRec) = 0 then
  begin
    repeat
      sl.Add(APath + '\' + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
    SysUtils.FindClose(SearchRec);
  end;
end;