【结贴】取某目录下的子目录问题

aboy

sr: TSearchRec;

1.if SysUtils.FindFirst(LocalPath+'\*.*',SysUtils.faDirectory,sr)=0 then
2.SysUtils.FindNext(sr);
第一句 是取指定目录下的所有子目录
第二句 是在这些子目录里逐个取吧
不知道我理解的对不对

但是 我这里 SysUtils.FindNext(sr); 连文件也取到了

还有 FindNext 如果目录下有长文件名（超过32，汉字算两个），
就报错，
相同的代码 用delphi 运行 没问题，
是什么原因啊，什么解决方法，目前这个比较急，客户急的要，
已经拖了一周了。

atiger

楼主，找到个例子，你参考一下，这个方法是遍历所有的子目录后，再删除


procedure   DeleteDir(sDirectory:   String);
  //删除目录和目录下得所有文件和文件夹
  var
      sr:   TSearchRec;
      sPath,sFile:   String;
  begin
      //检查目录名后面是否有   '\'
      if   Copy(sDirectory,Length(sDirectory),1)   <>   '\'   then
          sPath   :=   sDirectory   +   '\'
      else
          sPath   :=   sDirectory;

      //------------------------------------------------------------------
      if   FindFirst(sPath+'*.*',faAnyFile,   sr)   =   0   then
      begin
          repeat
              sFile:=Trim(sr.Name);
              if   sFile='.'   then   Continue;
              if   sFile='..'   then   Continue;

              sFile:=sPath+sr.Name;
              if   (sr.Attr   and   faDirectory)<>0   then
                  DeleteDir(sFile)
              else   if   (sr.Attr   and   faAnyFile)   =   sr.Attr   then
                  DeleteFile(sFile);                                                 //删除文件
          until   FindNext(sr)   <>   0;
          FindClose(sr);
      end;
      RemoveDir(sPath);
      //------------------------------------------------------------------
  end;}

aboy

我试试 ，等下反馈

aboy

问题出来了，如果目录下面有长文件名（文件长度大于32 位，一个汉字算两位，不包括扩展名）
会报错！  帮我看看是什么原因？ 谢谢。

atiger

请问楼主执行到哪句报错？可以去google上找找相关的资料

aboy

FindNext(sr)  当取文件长度超过32的就报错

aboy

哪位大哥帮我在x3上测试下， 谢谢啦！
我一般也很少问问题。

atiger

好，回头我测试一下，有结果马上跟贴告知，

aboy

在线等。。。。。。

SMP

这几个函数是不能用的，平台不支持调用，不过类似的逻辑可以用如下的代码来实现！
也就是用文件系统FileSys.FileSystem的实现来做这种逻辑！
var
  sr: Tstrings;
begin
  Sr := TStringList.Create;
  try
//  FileSys.FileSystem.GetFileList('File:\C:\', Sr);
  FileSys.FileSystem.SearchFile('File:\C:\', FileSys.SearchFileParam('&raquo;&brvbar;&para;&laquo;*.*', False), sr);
  Dialogs.ShowMessage(sr[0]);
  finally
    sr.Free;
  end;