码迷,mamicode.com
首页 > 其他好文 > 详细

文件夹拷贝 子文件及文件夹

时间:2015-01-16 19:16:15      阅读:149      评论:0      收藏:0      [点我收藏+]

标签:

function TForm1.CopyPath(BasePath,TargetPath:string):Boolean;
var
  i:Integer;
  cmd:string;
begin

    cmd:='echo d | Xcopy '+BasePath+' '+TargetPath+' /s/e';
    ShowMessage(cmd);
    i:=ShellExecute(Handle,nil,'cmd.exe',PChar('/K '+cmd),nil,SW_HIDE);
    if i>32 then Result:=True else Result:=False;
end;

文件夹拷贝 子文件及文件夹

标签:

原文地址:http://blog.csdn.net/hutao1101175783/article/details/42779361

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!