只需要判断有或无(.和..当然不算)
如果用Tdirectorylistbox实现,也请给代码
谢谢!

解决方案 »

  1.   

    使用Win32API,FindFirst/FindNext等,自己封装一个函数,判断是否目录为空。
      

  2.   

    (Sr.Attr and faDirectory) = 16是找到子文件夹
      

  3.   

    楼上的已经讲的得清楚了......
    var
       FileInfo: TSearchRec;
    DosCode :Integer
    begin
          DosCode := FindFirst(CurDir, faAnyFile, FileInfo);
          while DosCode = 0 do
          begin
            if (FileInfo.Attr and faDirectory = faDirectory) then
            begin
              showmessage('找到')
            end
            DosCode := FindNext(FileInfo);
          end
    end;
      

  4.   

    csdn的帮助越来越少了,本不想自己写代码,结果还是自己解决了
    不管怎么说,送分
      

  5.   

    顺便说一下,楼上stevenpeng(第九种兵器)说的也是错的
    你把.和..都算了,所以....所有的目录都有子目录(都显示“找到”)
      

  6.   

    btw,没有测试过的代码就不要拿出来