2,722
社区成员
发帖
与我相关
我的任务
分享无效的路径或文件名
连编之后运行表单，提示“无效的路径或文件名”点击忽略仍能运行
public mypath
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
挂起的是set defa to (mypath)，怎么回事？
public mypath
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
挂起的是set defa to (mypath)，怎么回事？
...全文
请发表友善的回复…
发表回复
十豆三 2013-05-11
- 打赏
- 举报
如果是 PRG，这个肯定没有问题：
public mypath
mypath=Addbs(Justpath(Sys(16,1)))
Set Default To (mypath)
u010653929 2013-05-11
- 打赏
- 举报
额，我用原来那个时好时坏是怎么回事，现在又没有路径或文件名无效的提示了
u010653929 2013-05-11
- 打赏
- 举报
额，不是只有一个表单。。有好多表单，只有一个程序而已
十豆三 2013-05-11
- 打赏
- 举报
或用
Addbs(Sys(5)+Sys(2003))
代替
left(sys(16),rat("\",sys(16)))
十豆三 2013-05-11
- 打赏
- 举报
编译后就可以了。
都市夜猫 2013-05-11
- 打赏
- 举报
那就用:
mypath = justpath(Sys(1271,thisform))
整个应用仅包含一个表单？编译成 exe 后，你会遇到很多问题，像是：如何不显示 vfp 的菜单、背景、一闪而过等等 ...
mypath = justpath(Sys(1271,thisform))
整个应用仅包含一个表单？编译成 exe 后，你会遇到很多问题，像是：如何不显示 vfp 的菜单、背景、一闪而过等等 ...
u010653929 2013-05-11
- 打赏
- 举报
额，我只有一个程序的样子，并且设置为主文件，就在这个程序里
都市夜猫 2013-05-11
- 打赏
- 举报
这种命令只能放在 main.prg 中
