欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vfp 9.0 在windows2012中发现scan语句有有关问题

更新时间: 2014-01-05 02:27:55 责任编辑: Author_N1

 

vfp 9.0 在windows2012中发现scan语句有问题
装了个windows 2012,然后装了vfp 9.0 ,一小段代码,读取一个表的每一条记录,然后将每条记录中的文件名取出,拷贝相应文件到指定的文件夹,用了scan endscan,结果总是弹出第一个文件是否覆盖,估计记录指针始终指向第一条记录,换了do while循环,还是始终指向第一条记录,继续用scan,在xp 系统上运行很好,求解决!谢谢先
--参考方法--
试试这段代码:
Set Safety Off
Select zpktest
Scan
Zpm1='f:\zpktest\' + Left(zpktest.Name,4)
If .Not. Directory(Zpm1)
Md (Zpm1)
Endif
Zpm2='f:\zpktest\' + Left(zpktest.Name,4) + '\' + Substr(zpktest.Name,5,3)
If .Not. Directory(Zpm2)
Md (zpm2)
Endif
Zpm3 = 'f:\zpktest\' + Left(zpktest.Name,4) + '\' + Substr(zpktest.Name,5,3) + '\' + Substr(zpktest.Name,8,3)
If .Not. Directory(Zpm3)
Md (zpm3)
Endif
Zpm4 = 'f:\zpktest\' + Left(zpktest.Name,4) + '\' + Substr(zpktest.Name,5,3) + '\' + Substr(zpktest.Name,8,3)
Copy File (zpktest.name) To (zpm4)
Endscan

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:27:55
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10143/
本文WWW.DOC100.NET DOC100.NET版权所有。