obj=Createobject("MSComDlg.CommonDialog.1")
obj.Flags = 524288 + 512 + 4
obj.Filter = "文件类型(*.*)|*.*"
obj.FileName = "ttttt"
obj.maxFileSize=10000
obj.ShowOpen()
Self=obj.FileName+CHR(0)
IF 'ttttt' $ Self
MESSAGEBOX("99")
ELSE
FOR i = 1 TO OCCURS(CHR(0),Self) - 1
FileName = SUBSTR(Self,AT(CHR(0),Self,i)+1,AT(CHR(0),Self,i+1)-AT(CHR(0),Self,i))
UpLoadFile = SUBSTR(Self,1,AT(CHR(0),Self) - 1)
UpLoadFile = UpLoadFile + '\' + FileName
ToFile = 'Z:\' + FileName
COPY FILE &FileName. TO &ToFile
ENDFOR
ENDIF
加入选定的是D:\lcz下的00.txt文件，但提示的“不能创建文件D:\lcz”让我不能理解...
Z盘为映射的网络磁盘，单纯使用COPY FILE 命令测试没有问题
------解决方案--------------------------------------------------------