谢谢！！！怎样获得指定路径下的文件夹和文件夹内文件的名！(100分)

c 盘下有 N 个文件夹，没个文件夹内的文件个数不等
我要列出所有文件的信息（即所在的文件夹名称和文件本身的名称）；
例如 c:/aaa/a.txt
c:/aaa/b.txt
c:/aaa/c.txt
c:/bb/a.txt
c:/cc/ads.txt
c:/cc/yy.txt

格式为
文件夹名称 文件名称
aaa a.txt
aaa b.txt
....... ......
cc yy.txt


谢谢！！！

子目录级查找指定文件，添加到列表中原出自：无泪

procedure FindFiles(APath, AFile: string;FileList:Tstrings);
var
FindResult: integer;
FSearchRec, DSearchRec: TSearchRec;
function IsDirNotation(ADirName: string): Boolean;
begin
Result := ((ADirName = '.') or (ADirName = '..'));
end;
begin
if APath[Length(APath)] <> '/' then
APath := APath + '/';
FindResult := FindFirst(APath + AFile, faAnyFile +
faHidden +faSysFile + faReadOnly,
FSearchRec); //在根目录中查找指定文件
try
while FindResult = 0 do
begin
FileList.Add(APath + FSearchRec.Name);
FindResult := FindNext(FSearchRec); // 查找下一个指定文件
end;
//进入当前目录的子目录继续查找
FindResult := FindFirst(APath + '*.*', faDirectory, DSearchRec);
while FindResult = 0 do
begin
if ((DSearchRec.Attr and faDirectory) = faDirectory) and
not IsDirNotation(DSearchRec.Name) then
//递归调用FindFiles函数
FindFiles(APath + DSearchRec.Name, AFile,FileList);
FindResult := FindNext(DSearchRec);
end;

finally
FindClose(FSearchRec);
end;

end;

调用：

FindFiles('c:/','*.exe',listbox1.items);

再使用这两个函数可以得到文件名称和路径
function ExtractFileName(const FileName: string): string;
function ExtractFilePath(const FileName: string): string;

谢谢 上面两位
我要的结果是 在 GRID 里显示为
文件夹名称 文件名


本人是菜鸟
麻烦了
谢谢

楼主的意思是叫楼上两位写个现成的程序给他。

还有人吗

谢谢

老大 ，你这菜鸟 当的 都不合格！
都写 成这样了，你自己 研究 以下！我相信 要不到 半天 肯定 能搞出来！

用递归

楼上几位的已经很详细了，我前段时间也才写了个.也就是用的上面的一些东西。
自己在研究一下就知道了。

多人接受答案了。