急！！！在线！！！！文件夹下子文件夹操作

Question

比如在word文件夹下增删改子文件夹，子文件夹下有word文档！

Answer 1

???
不明白你的意思？
直接删除文件夹不就行了？
function   TForm1.DeleteDirectory(const   Directory:string):boolean;   
  var   
      fo:   TSHFILEOPSTRUCT;   
  begin   
      FillChar(fo,   SizeOf(fo),   0);   
      with   fo   do   
      begin   
          Wnd   :=   0;   
          wFunc   :=   FO_DELETE;   
          pFrom   :=   PChar(Directory+#0);   
          fFlags   :=   FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR         ;   
      end;   
      Result   :=   (SHFileOperation(fo)   =   0);   
  end;

Answer 2

比如在word文件夹下增删改子文件夹，子文件夹下有word文档！
word文件夹有合作合同文件夹、买卖合同文件夹等，可以在创建其他的文件夹，删除要把文件夹里面的文件也 删除

Answer 3

CreateDir('d:\abc');//建立
RenameFile('d:\abc','d:\abc123');//重命名
RemoveDir('d:\abc123');//删除

Answer 4

这样就可以了 
CreateDir('d:\abc');//建立 
RenameFile('d:\abc','d:\abc123');//重命名 
RemoveDir('d:\abc123');//删除