请问如何删除一子目录及其下面的文件

如题 问题点数：50、回复次数：1Top

1 楼cym830313（黑猪小C）回复于 2004-05-03 21:10:39 得分 50

给你一个例子  
  procedure   TForm1.Button1Click(Sender:   TObject);    
      var    
      DirInfo:   TSearchRec;    
      r   :   Integer;    
      begin    
      r   :=   FindFirst('C:\Download\Test\*.*',   FaAnyfile,   DirInfo);    
      while   r   =   0   do    
      begin    
      if   ((DirInfo.Attr   and   FaDirectory   <>   FaDirectory)   and    
      (DirInfo.Attr   and   FaVolumeId   <>   FaVolumeID))   then    
      if   DeleteFile(pChar('C:\Download\test\'   +   DirInfo.Name))   =   false   then    
      ShowMessage('Unable   to   delete   :   C:\Download\test\'   +   DirInfo.Name);    
      r   :=   FindNext(DirInfo);    
      end;    
      SysUtils.FindClose(DirInfo);    
      if   RemoveDirectory('C:\Download\Test')   =   false   then    
      ShowMessage('Unable   to   delete   direcotry   :   C:\Download\test');    
      end;    
  Top

相关问题

• dirinfo
• favolumeid
• fadirectory
• download
• attr
• then showmessage
• test
• begin
• unable to delete

• 帖主：OLDBLACKP
• cym830313

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载