var
sFile : String;
begin
AdvDirectoryEdit1.Text := 'c:\mysql\data\test';
AdvDirectoryEdit2.Text := 'A:';
//Backup_jnpo.myi ,myd,frm 파일 은 있고요
sFile := 'cmd/c Copy '+AdvDirectoryEdit1.Text+'\Backup_jnpo.* '+
AdvDirectoryEdit2.Text);
if WinExec(Pchar(sFile),SW_SHOW) < 32 then
ShowMessage('실패')
else
ShowMessage('성공');
이렇게 하면 실패 즉 복사가 안돼는데 이유가 먼지
답변부탁드립니다
9번째 줄에 cmd/c => cmd /c 로 스페이스를 줘야합니다.
01>var
02> sFile : String;
03>begin
04> AdvDirectoryEdit1.Text := 'c:\mysql\data\test';
05> AdvDirectoryEdit2.Text := 'A:';
06> //Backup_jnpo.myi ,myd,frm 파일 은 있고요
07>
09> sFile := 'cmd/c Copy '+AdvDirectoryEdit1.Text+'\Backup_jnpo.* '+
10> AdvDirectoryEdit2.Text);
11>
12>if WinExec(Pchar(sFile),SW_SHOW) < 32 then
13> ShowMessage('실패')
14> else
15> ShowMessage('성공');
16>