关于复制文件的问题(50分)

X

xin9200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #1

各位大侠`小弟初学者`请各位帮忙
我在form1的button组件里写入如下代码来实现文件复制的功能,具体如下
CopyFile(pchar('C:/WINDOWS/system32/drivers/etc/道里服务器文件/hosts'), pchar('C:/WINDOWS/system32/drivers/etc/hosts'), false);
CopyFile(pchar('C:/WINDOWS/system32/drivers/etc/道里服务器文件/sqlhosts'), pchar('C:/WINDOWS/system32/drivers/etc/sqlhosts'), false);
CopyFile(pchar('C:/WINDOWS/system32/drivers/etc/道里服务器文件/services'), pchar('C:/WINDOWS/system32/drivers/etc/services'), false);
CopyFile(pchar('C:/WINDOWS/system32/drivers/etc/道里服务器文件/*.*'), pchar('C:/WINDOWS/system32/drivers/etc/*.nfx'),false);//其中这个已nfx为扩展名的文件名字不一定
其他的都成功 这个怎么不成功``
请指教```

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #2

用SHFileOperation来复制。

 

X

xin9200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #3

不会用 用能举个例子么 谢谢你

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #4

兄弟，网上应该可以搜索到好多的 。

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #5

CopyFile只能复制完整的文件名字啊!

 

M

madeagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #6

你这是拷贝目录,直接*.*好象是不好用的,没试过
而且拷贝文件最好用SHFileOperation,适应性强,可操作选项多
在DFW里搜下,有很多

 

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #7

unction CopyDirectory(Source,TargetChar):boolean;//复制目录
var
OpStruc:TSHFileOpStruct;
FromBuf,ToBuf:array[0..128] of Char;
begin
Result:=False;
FillChar(FromBuf,Sizeof(FromBuf),0);
FillChar(ToBuf,Sizeof(ToBuf),0);
StrPCopy(FromBuf,Source);
StrPCopy(ToBuf,Target);
with OpStruc do
begin
wFunc:=FO_COPY;
pFrom:=@FromBuf;
pTo:=@ToBuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:=False;
hNameMappings:=nil;
lpszProgressTitle:=nil;
end;
if ShFileOperation(OpStruc)=0 then Result:=True;
end;

 

K

kaida

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #8

CopyFile(pchar('C:/WINDOWS/system32/drivers/etc/道里服务器文件/*.*'), pchar('C:/WINDOWS/system32/drivers/etc/*.nfx'),false); //错误
CopyFile(pchar('C:/WINDOWS/system32/drivers/etc/道里服务器文件/*.nfx'), pchar('C:/WINDOWS/system32/drivers/etc/'),false);//正确

 

K

kinneng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-27

• #9

复制之后再改名

 

X

xin9200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-11-30

• #10

xiexie