文件复制问题I(50分)

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #1

请问文件的复制方法是不是如下：
在uses中加入filectrl
然后在程序中的需要进行复制操作的地方加入
CopyFile(fromfile,tofile);即可？？？或者CopyFile(fromfile,tofile,true);
或者CopyFile(fromfile,tofile,false);
其中fromfile（变量） 为一具体文件如：f:/picture/love.jpg
　　tofile（变量）为一具体目录如：D:/mypicture
我用这样的方法。没有出任何错误，但结果是没有复制任何文件[?][?][?]

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #2

tofile（变量）为一具体目录如：D:/mypicture
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
错！应该也是具体文件名。D:/mypicture/love.jpg

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #3

fromfile和tofile都应该为包含路径的文件名

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #4

ToFile也要文件名把

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #5

晕。。我是看一个例子上学过来的。可人家如何能行。如果原来的目录下已经
有这个文件名了。不出现任何提示覆盖原文件是用(xxx,xxx,true)还是(xxx,xxx,false)
如果一定要从一个文件复制到一个文件夹要怎么写？thank!!

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #6

比如：
FromFile := 'f:/picture/love.jpg';
ToFile := 'D:/mypicture/'+ExtractFileName(FromFile);

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #7

如果原来的目录下已经有这个文件名了。不出现任何提示覆盖原文件是用
(xxx,xxx,false)

 

I

ilook

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #8

最后一个疑问：如果直接复制在F盘根目录下。
用SelectDirectory(Caption,Root,Directory);
copypath.Text:=directory;
可得到f:/
可如果指定到如f:中的其它目录。可得到如f:/mypicture这个结果
两种结果。一个有'/'。一个没有'/'这个问题处理？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #9

是不是如果没有'/'就加上'/'?
if directory[Length(directory]-1]<>'/' then
directory := directory + '/';