主题：运行程序在提示“××文件不存在”前如何自动将不存在的文件从给定文件夹复制到当前文件夹？
hpqzxyq
[专家分：960] 发布于 2009-04-13 06:04:00
在一个文件夹中设计应用程序,建立了表单、程序、表等多种文件，由于设计程序的思路变化，有些文件不需要了，当时又没有将不需要的文件删除，这些文件不仅占用存储空间，还不便于查找需要的文件。
希望：另建一个新文件夹，只把应用程序的主程序复制到新文件夹中，然后运行主程序，在提示“××文件不存在”前，自动将不存在的文件由原来文件夹复制到新文件夹，从而达到去除不必要文件的目的。
请问：应如何实现这一设想？
请赐教
谢谢！！！
回复列表 （共4个回复）
沙发
martine [专家分：4950] 发布于 2009-04-13 07:48:00
思路挺好,但存在问题. 假如主程序在A文件夹,运行时已经是编译的了,倒是可以找到没存在的文件之文件名和扩展名, 运行拷贝命令,到指定文件夹中把哪个文件考过来.但要考虑其他扩展名的文件,然后还是要编译的.这些事应该在设计时处理的,再到运行时处理恐怕不方便吧.不如把主程序放到一个新文件夹后,运行,提示缺那个就去旧文件夹考哪两个.
板凳
hpqzxyq [专家分：960] 发布于 2009-04-13 09:46:00
martine
感谢你就本人所提问题作出的回答。我想再次向你请教：运行程序时，用什么命令获取不存在文件的文件名与扩展名。
3 楼
qjbzjp [专家分：8830] 发布于 2009-04-13 12:06:00
试试：
ON ERROR do errprc
USE jo.dbf &&不存在的jo.dbf文件
DO CXH.PRG &&不存在的Cxh.prg文件
PROCEDURE errprc
messz=MESSAGE()
mz=CHRTRAN(messz,"文件不存在。'","")
文件名=left(JUSTFNAME(mz),AT(".",JUSTFNAME(mz))-1)
扩展名=JUSTEXT(mz)
?文件名
?扩展名
ENDPROC
4 楼
hpqzxyq [专家分：960] 发布于 2009-04-13 15:59:00
qjbzjp
感谢你对本人所提问题作出的解答。按你的解答的确可获取不存在文件的文件名，这样，可以设计一个新程序获取不存在文件的文件名后，自动将不存在文件从原来文件夹复制到新文件夹中。当运行主程序出错时自动执行此处新设计的程序，即可解决本帖提出的问题。
谢谢以上两位朋友给出的帮助
我来回复
您所在位置：