ShellExecuteとxcopyでフォルダをコピーするには？

解決

酢 2007-08-21 07:43:18 No: 27448

環境は、Ｄｅｌｐｈｉ６、WindowsＸＰです。

コピー元 D:\test 1-----1 1.txt
1 2.txt

コピー先 G:\test 1-----空

があるとします。

下記を実行すると上手くいきません。
procedure TForm1.Button1Click(Sender: TObject);
VAR S:string;
begin
  s:= 'D:\test 1 G:\test 1';
  ShellExecute(handle,nil,PChar('C:\WINDOWS\system32\xcopy.exe'),
               PChar(S),nil,SW_NORMAL);
end;

s:= Chr(39)+'D:\test 1 G:\test 1'+Chr(39); でもだめでした。
s:= 'D:\test1 G:\test1'; のように空白がなければokですが、空白のあるホルダを
コピーしたいのです。
誰かお願いします。

手に酢 2007-08-21 17:12:04 No: 27449

>誰かお願いします。
誰だろ
s := '"D:\てすと 1" "G:\てすと 1" /E /Y /F /I';

酢 2007-08-22 07:10:36 No: 27450

手に酢さんありがとうございました。無事に解決出来ました。
まさかVB6のやり方とほぼ同じとは．とほほ．勉強になりました。