关于执行dos命令的问题和数据备份的问题。(200分)

X

xu_ml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #1

请问各位大侠：怎样把C:/Program Files/北华大学教务处/北华大学学生统考报名系统/data
目录下的数据拷贝到软盘上。另外，我想把这个目录的记录作一个数据备份，有什么好办法。

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #2

直接用COPY文件的API函数COPYFILE可以吗？

 

X

xu_ml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #3

对不起，请问copy的api怎么用呀？

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #4

CopyFile('c:/windows/win.com','c:/windows/desktop/1',false);
****************** *******************
要复制的文件 复制到哪儿，如果名字不同则改用新名。
第三个参数作用是当目标文件已经存在时，是否覆盖。

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #5

copyfile

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #6

SHFileOperation

 

X

xu_ml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #7

to kingdeezj:
非常谢谢你的答案，这个函数拷贝一个文件是好使的，但我是想把C:/Program Files/北华大学教务处/北华大学学生统考报名系统/data
的整个data目录拷贝下来。请问你还有什么高招吗？谢谢。

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #8

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #9

首先需要 uses ShellAPI;
var
fileopstruct:TSHFileOpStruct;
str1,str2:string;

str1:='C:/Program Files/北华大学教务处/北华大学学生统考报名系统/data'#0#0; //后面两个#0请保留
str2:='A:/'#0#0; //后面两个#0请保留
with fileopstruct do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=PChar(str1);
pto:=PChar(str2);
fflags:=fof_simpleprogress;
fanyoperationsaborted:=false;
hnamemappings:=nil;
lpszprogresstitle:='挎贝文件';
end;
shfileoperation(fileopstruct);

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #10

转贴一篇来自Fyx 的文章，供你参考：
uses ShellAPI

procedure TForm1.Button1Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'c:/a' );//更换成相应的目录。
StrPCopy( tobuf, 'c:/b' );//同上。
With OpStruc DO Begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;

 

H

hbwanghua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-17

• #11

SourFile:='C:/Program Files/北华大学教务处/北华大学学生统考报名系统/data';
DestFile:='C:/Test';
if Pos('Program Files',DestFile) <> 0 then//将长文件名改为短文件名
begin
s := Copy(DestFile,1,Pos('Program Files',DestFile)-1);
s:= s + 'Progra~1' + Copy(DestFile,Pos('Program Files',DestFile) + 13,Length(DestFile));
DestFile := s;
end;
s := 'Command.com /c Xcopy ' + SourFile + ' ' + DestFile + ' /s/e/d/y';
Rtn := WinExec(Pchar(s),SW_HIDE);//成功返回真

 

X

xu_ml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-20

• #12

多人接受答案了。