原因是代码中有两处的寻找文件()指令的返回值没有填入列表框中,第一处为首次查找,第二处在循环中,所以,查找的第一个文件,以及以后查找的第偶数个文件都没有填入列表框。
修改如下:
.版本 2
.支持库 shell
.子程序 插入
.局部变量 a, 文本型
.局部变量 i, 整数型
.局部变量 路径, 文本型
路径 = 浏览文件夹 (“浏览”, )
.如果真 (路径 = “”)
返回 ()
.如果真结束
列表框1.清空 ()
a = 寻找文件 (路径 + “/*.jpg”, )
.判断循环首 (a ≠ “”)
列表框1.加入项目 (a, )
a = 寻找文件 (,)
.判断循环尾 ()
返回 ()
不懂可以追问呀 代码如下:
.版本 2
.支持库 shell
.子程序 _按钮1_被单击
.局部变量 用户选择的目录, 文本型
.局部变量 计次_变量, 整数型
.局部变量 加0, 文本型
用户选择的目录 = 浏览文件夹 (“请选择目录”, )
.如果真 (用户选择的目录 = “”)
信息框 (“您还没有选择目录呢”, #警告图标, )
返回 ()
.如果真结束
用户选择的目录 = 用户选择的目录 + “\”
.变量循环首 (3, 168, 2, 计次_变量)
加0 = “”
.如果真 (取文本长度 (到文本 (计次_变量)) = 1)
加0 = “00” + 到文本 (计次_变量)
.如果真结束
.如果真 (取文本长度 (到文本 (计次_变量)) = 2)
加0 = “0” + 到文本 (计次_变量)
.如果真结束
.如果真 (取文本长度 (到文本 (计次_变量)) = 3)
加0 = 到文本 (计次_变量)
.如果真结束
.如果真 (文件是否存在 (用户选择的目录 + 加0 + “.jpg”))
列表框1.加入项目 (用户选择的目录 + 加0 + “.jpg”, )
.如果真结束
.变量循环尾 ()