怎么得到一个目录下所有文件的文件名（包括子目录的）及子目录名

eggbaby 2000-07-10 04:42:00

...全文

153 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

手指英语 2000-07-10

打赏
举报

多谢 kxy。

tingweb 2000-07-10

打赏
举报

if FindFirst(SerachFile, faAnyFile, SearchRec) <> 0 then Exit;
repeat
SearchRec.Name;//全文件名
Delete(ItemInfo.Name, Length(ItemInfo.Name)-3, 4);//文件名
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);

子目录
if FindFirst(SerachFile+ '*.*', faDirectory , SearchRec2) <> 0 then Exit;

if ( SearchRec2.Attr = faDirectory ) and ( SearchRec2.Name <> '.' )
and ( SearchRec2.Name <> '..' ) then
repeat
memo1.lines.add(SearchRec2.name);
until findnext(SearchRec2)<>0;
FindClose(SearchRec2);