当前位置: 代码迷 >> PB >> copyfile函数能解决一批文件的复制吗?该怎么处理
  详细解决方案

copyfile函数能解决一批文件的复制吗?该怎么处理

热度:66   发布时间:2016-04-29 07:28:34.0
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

------解决方案--------------------
既然可以实现复制一个文件,那为什么就不能实现多选文件后,再用循环一个一个的复制呢?
  相关解决方案