用什么函数可以获得指定目录下的所有文件？

[meapex]

注意：是文件，不是子目录。
请高手指教。谢谢

[jingrunx]

FindFirst, FindNext
然后看 (TSearchRec->Attr & faDirectory) == 0的都是文件

[warton]

是用findfirst()!

[yuyulily]

FindFirst, FindNext

[网事随逢]

mark...

[jishiping]

//使用下面的函数，Path目录下的所有文件就存放到Strings下了。
bool GetFiles(AnsiString Path, TStrings* Strings)
{
TSearchRec sr;

if (Path.IsEmpty() || Strings==NULL)
return false;
Strings->Clear(); //清除Strings，根据情况可以去掉这一句
if (Path[Path.Length()]!='\\') Path += '\\';
if (FindFirst(Path+"*.*",ReadOnly|faHidden
|faSysFile|faArchive,sr) != 0)
return false;
do {
Strings->Add(Path+sr.Name);
}while(FindNext(sr) == 0);
FindClose(sr); return true;
}

例子：
GetFiles("C:\\", ListBox1->Items);

[hed]

谢谢jishiping(JSP 季世平) 同志！