关于 COPY FILE 下令

关于 COPY FILE 命令
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 命令测试没有问题
------解决方案--------------------------------------------------------

引用:

... 我也想实现类似WINDOWS下的进度条，但是不会，而且文件稍微大点，就会出现类似程序假死现象 ...

复制一个大文件可以很简单，例如

oShell = CreateObject("Shell.Application")
oTag = oShell.NameSpace("Z:\" )
oTag.CopyHere( "d:\lcz\xxx.iso", 0)

如果像你一楼代码那样，需要同时复制多个文件，就会复杂点，还需要使用 FolderItems 对象