无效的路径或文件名

[u010653929]

连编之后运行表单，提示“无效的路径或文件名”点击忽略仍能运行


public mypath
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)


挂起的是set defa to (mypath)，怎么回事？

[都市夜猫]

这种命令只能放在 main.prg 中

[u010653929]

引用 1 楼 dkfdtf 的回复:

这种命令只能放在 main.prg 中

额，我只有一个程序的样子，并且设置为主文件，就在这个程序里

[都市夜猫]

那就用:
mypath = justpath(Sys(1271,thisform))

整个应用仅包含一个表单？编译成 exe 后，你会遇到很多问题，像是：如何不显示 vfp 的菜单、背景、一闪而过等等 ...

[十豆三]

编译后就可以了。

[十豆三]

或用 Addbs(Sys(5)+Sys(2003)) 代替 left(sys(16),rat("\",sys(16)))

[u010653929]

引用 3 楼 dkfdtf 的回复:

那就用: mypath = justpath(Sys(1271,thisform)) 整个应用仅包含一个表单？编译成 exe 后，你会遇到很多问题，像是：如何不显示 vfp 的菜单、背景、一闪而过等等 ...

额，不是只有一个表单。。有好多表单，只有一个程序而已

[u010653929]

引用 5 楼 apple_8180 的回复:

或用 Addbs(Sys(5)+Sys(2003)) 代替 left(sys(16),rat("\",sys(16)))

额，我用原来那个时好时坏是怎么回事，现在又没有路径或文件名无效的提示了

[十豆三]

如果是 PRG，这个肯定没有问题： public mypath mypath=Addbs(Justpath(Sys(16,1))) Set Default To (mypath)