如何复制某个盘的全部文件和文件夹? ( 积分: 100 )

  • 主题发起人 主题发起人 霖霖
  • 开始时间 开始时间
uses<br> &nbsp; Windows,Messages, SysUtils, Variants;<br>如果不能通过的话,把sysutils 和 windows 调换一下顺序,因为在这两个里面都有 findclose方法,哪个在前系统就引用哪一个
 
uses ShellAPI<br>另外復制C盤下的文件改成:<br>StrPCopy(FromBuf,PChar('c:/*.*'));
 
To songjy:<br> &nbsp; 把sysutils 和 windows 调换一下顺序后真的可以通过编译了!<br> &nbsp; 但是在程序中还有点小错误,我跟踪后发现在递归调用时,文件夹中的路径少了一个“/”,导致一个小错误的发生。例如:当拷贝C:/AAA/BB文件夹中的内容时,拷贝后变成C:/AAABBB了。不过这是小问题,稍加修正就可以了。<br><br><br><br>To guoqun:<br> &nbsp; 改成:StrPCopy(FromBuf,PChar('c:/*.*')); &nbsp;的确是没问题啦!
 
沒問題還不散分,呵呵.
 
多人接受答案了。
 
后退
顶部