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

关于 COPY FILE 命令,该怎么解决

2012-03-02 
关于 COPY FILE 命令objCreateobject(MSComDlg.CommonDialog.1)obj.Flags 524288 + 512 + 4obj.Filte

关于 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下的进度条,但是不会,而且文件稍微大点,就会出现类似程序假死现象 ...

热点排行