有没有判断目录为空的API？？

yifei1900 2003-06-08 11:25:26

有没有判断目录为空的API？？

...全文

94 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

hzlaw 2003-09-29

打赏
举报

PathName[Length(PathName)]<>'\' ？？？不是PathName[Length(PathName)-1]<>'\'???

jacket008 2003-09-28

打赏
举报

！！！！

guothreelove2003 2003-09-28

打赏
举报

高实在是高！I follow you!

yifei1900 2003-09-26

打赏
举报

向高手敬礼!!!

flyfish99 2003-06-08

打赏
举报

直接用findfirst的返回值判断不就可以了么？
如果返回值不是0应该就是空目录了吧~

Eastunfail 2003-06-08

打赏
举报

语言分析“有没有判断目录为空的API？？”
分析过程：
1.目录为空即为空目录
2.空目录是指目录下面没有文件
3.所以用来判断目录为空就是判斷是否未空目錄,也是判斷是否該目錄下麵有文件否
4.所以用來判斷文件是否存在,使用FileExists,
5.所以用來判斷目錄是否未空,使用FileExists.
所以:
Function IsEmptyDirectory(PathName:string):boolean;
var sTmp:string;
begin
if PathName[Length(PathName)]<>'\' then sTmp:=PathName+'\*.*' else sTmp:=PathName+'*.*'
Result:=FileExists(sTmp);
end;