Question

Delphi 怎么制作复制文件夹程序

我用的指令是这个winexec('xcopy c:\abc d:\abc /s/e',SW_HIDE);
可是，这个只能是固定的路径，比如我想把C:\abc做成变量，就不知道怎么做了，有谁知道，谢谢

Answer 1

如问题所描述的，将 C:\abc 做成变量，代码可以如下编写：

procedure TForm1.btn1Click(Sender: TObject);
var sSource,sTarget:string;
begin
  sSource := 'c:\abc';
  sTarget := 'd:\abc';
  WinExec('xcopy ' + sSource + ' ' + sTarget + ' /s/e',SW_HIDE);
end;