为什么我的这个程序会被说文件a1不存在呀 - VFP论坛

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 12 楼

得分:0

以下是引用菡隽在2016-7-4 09:00:02的发言：

还是不行啊~~是不是我的软件有问题或者我之前用这个程序做过别的程序它有保留路径、基类之类的情况啊

*2个文件的做法，main.prg ,a1.prg，比如，你都放在 C:\MyTest 中
***mian.prg
*设置路径
public gcFilePath
gcFilePath=LEFT(SYS(16),RAT("\",SYS(16))) &&捕捉当前运行的程序文件的位置和设置路径
SET DEFA TO (gcFilePath)

clear
set talk off
inpu "i=" to i
inpu "n=" to n
s=0
publ kk
kk=1
for k=i to n
ff=i
do a1 with ff
s=s+kk
endfor
?s
return

***a1.prg，这以下，保存起来，单独1个文件，叫 a1.prg，和main.prg放在相同的目录中
para h
for t=1 to h
kk=t*kk
endfor

2016-07-04 09:09

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 14 楼

得分:0

如果你不想设置路径，就用完整路径，如下，我的 a1.prg 放在C盘

2016-07-04 09:21