我的本意要实现选择多个文件,然后全部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
------解决方案--------------------
既然可以实现复制一个文件,那为什么就不能实现多选文件后,再用循环一个一个的复制呢?