首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

copyfile函数能解决一批资料的复制吗

2012-06-29 
copyfile函数能解决一批文件的复制吗?我的本意要实现选择多个文件,然后全部copy到服务器上的功能。但是现在

copyfile函数能解决一批文件的复制吗?
我的本意要实现选择多个文件,然后全部copy到服务器上的功能。但是现在选择一个文件可以成功,选择多个文件时,filecopy函数返回值都是-1,怎么改?

integer result,i,li_cnt,li_rtn,li_filenum
string docpath,docname[],targetpath
li_rtn = GetFileOpenName("Select File",docpath,docname[],"DOC",+"PDF Files (*.PDF),*.PDF,"+"DOC Files (*.DOC),*.DOC," + "All Files (*.*),*.*","c:\",18)
if li_rtn<1 then return
li_cnt = Upperbound(docname)
for i=1 to li_cnt
li_filenum=FileCopy(docpath,"\\192.168.3.203\glxtDoc\"+(string(docname[i])))
targetpath += string(docpath)+"\"+(string(docname[i])+"~r~n")
mle_selected.text = targetpath 
next


[解决办法]
既然可以实现复制一个文件,那为什么就不能实现多选文件后,再用循环一个一个的复制呢?

热点排行