判断文件存在的代码，功能无效啊，那里错了啊

78353208 · 发表于 2011-7-27 16:38:25

本帖最后由 78353208 于 2011-7-27 16:41 编辑

判断本目录里的文件存在与否，只要其中一个不存在  就载入窗口1  全部存在就载入窗口2

下面的代码  不知道那里出错了  ，文件不存在和存在都是载入窗口1
网高手解答  跪谢

下面代码的意思是  只要其中一个文件不存在  就载入窗口1（窗口1是提示的窗口）

全部文件不缺  都存在就载入窗口2（窗口2是进入程序）

.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕

判断文件 ()

.子程序判断文件
.局部变量已载入, 整数型

已载入＝ 0
.判断开始 (文件是否存在 (取运行目录 () ＋ “\psapi.dll”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (文件是否存在 (取运行目录 () ＋ “\krnln.fnr”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (文件是否存在 (取运行目录 () ＋ “\eAPI.fne”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (文件是否存在 (取运行目录 () ＋ “\epsonwsp.dll”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (文件是否存在 (取运行目录 () ＋ “\qingling.dll”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (文件是否存在 (取运行目录 () ＋ “\usdjq.dll”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (文件是否存在 (取运行目录 () ＋ “\AdjProg.dll”) ＝真)
已载入＝已载入＋ 1
.默认

.判断结束
.判断开始 (已载入＞ 0)
   载入 (窗口1, , 假)
.默认
载入 (窗口2, , 假)
.判断结束

孤心人 · 发表于 2011-7-27 16:40:12

不要用判断命令，用“如果真”命令

判断命令只是针对当前判断，如果正确下面的就不判断了，所以不能全部去判断存不存在

James丶Chen · 发表于 2011-7-27 16:42:55

LS说得对喔.

exit11 · 发表于 2011-7-27 16:56:28

判断条件不充分，当全部文件不存在时，已载入=0，一样会载入窗口2

.版本 2

.判断开始 (已载入＞ 0)
载入 (窗口1, , 假)
.判断 (已载入＝ 7)
载入 (窗口2, , 假)

灰色GiveUp · 发表于 2011-7-27 17:16:15

{:3_244:}{:3_244:}只需要一个代码即可

判断多文件存在且提示.rar (1.07 KB, 下载次数: 13)

Room · 发表于 2011-7-27 18:45:49

最好用如果真, 判断不好使, 如果真(文件是否存在(取运行目录 () ＋ “\psapi.dll”))

78353208 · 发表于 2011-7-27 22:40:29

本帖最后由 78353208 于 2011-7-27 22:40 编辑

.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕

.如果 (文件是否存在 (取运行目录 () ＋ “\psapi.dll”) ＝假且文件是否存在 (取运行目录 () ＋ “\krnln.fnr”) ＝假且文件是否存在 (取运行目录 () ＋ “\eAPI.fne”) ＝假且文件是否存在 (取运行目录 () ＋ “\epsonwsp.dll”) ＝假且文件是否存在 (取运行目录 () ＋ “\qingling.dll”) ＝假且文件是否存在 (取运行目录 () ＋ “\usdjq.dll”) ＝假且文件是否存在 (取运行目录 () ＋ “\AdjProg.dll”) ＝假)
' 这里是某个文件不存在而提示的代码
载入 (窗口1, , 假)
.否则
载入 (窗口2, , 假)
.如果结束

(灰色GiveUp )提供的代码我测试了，文件删除几个运行还是载入窗口2 提示文件是全的晕
但还是得谢谢你

78353208 · 发表于 2011-7-27 22:42:41

本帖最后由 78353208 于 2011-7-27 22:43 编辑

不过我还是找到正确的方法了：共享如下

.版本 2
.子程序判断文件
.局部变量已载入, 逻辑型
.判断开始 (文件是否存在 (取运行目录 () ＋ “\psapi.dll”) ＝假)
已载入＝真
.判断 (文件是否存在 (取运行目录 () ＋ “\krnln.fnr”) ＝假)
已载入＝真
.判断 (文件是否存在 (取运行目录 () ＋ “\eAPI.fne”) ＝假)
已载入＝真
.判断 (文件是否存在 (取运行目录 () ＋ “\epsonwsp.dll”) ＝假)
已载入＝真
.判断 (文件是否存在 (取运行目录 () ＋ “\qingling.dll”) ＝假)
已载入＝真
.判断 (文件是否存在 (取运行目录 () ＋ “\usdjq.dll”) ＝假)
已载入＝真
.判断 (文件是否存在 (取运行目录 () ＋ “\AdjProg.dll”) ＝假)
已载入＝真
.默认
已载入＝假
.判断结束
.判断开始 (已载入)
载入 (窗口1, , 假)
.默认
载入 (窗口2, , 假)

		自动登录	找回密码
密码			注册

[易语言] 判断 文件存在的代码，功能无效啊，那里错了啊

[易语言] 判断文件存在的代码，功能无效啊，那里错了啊