PB中 FileCopy() 问题

这个是 我在一个窗口上传图片并把图片显示到一个picture空间里面时的代码：
string pname//图片路径 全局变量

string fname//图片名称
integer value

value = GetFileOpenName("请选择图片",pname, fname,'jpg', &
+ 'Jpg 文件(*.jpg),*.jpg,位图文件(*.bmp),*.bmp,所有文件(*.*),*.*') 

dw_1.setitem( 1, 'khyd',fname)

IF value <> 1 THEN return

//显示文件
p_1.PictureName = fname
SetPointer( HOURGLASS! )
SQLCA.AutoCommit = True
//测定文件长度
long ll_len
ll_len = FileLength(pname)
//打开文件
integer fileno
fileno = FileOpen(pname,StreamMode!,READ!,LOCKREAD!)

//读文件
blob lb_file ,lb_fn
int li_ii,ii
li_ii = ceiling(ll_len/32765)//取整

for ii = 1 to li_ii
FileRead (fileno, lb_fn)
lb_file = lb_file + lb_fn
next
这个 完全可以 但是我还想把 这个上传的图片复制到我想要的目录下 代码如下：

string copyto
copyto = 'F:\图片\' \\我所需文件目录
FileCopy ( pname , copyto , false)
if FileCopy(pname , copyto , false) <> 1 then
 messagebox('提示','上传失败')
else
messagebox('提示','上传成功')
end if 

为什么 返回值是 -1 啊 请各位大虾些帮帮忙 万分感谢

1、messagebox 一下你的源路径，不过你应该不是路径的问题。

2、你应该是没关闭文件闹的，fileclose 一下，在复制。

好久没玩PB了你试试吧。

兄台，这是VB版，请把帖子转移到PB区