.版本 2
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型, , "6", 存储文件名,预设6个,可自己修改
.局部变量 临时计次, 整数型
.如果真 (编辑框1.内容 = “”)
信息框 (“请选择路径!”, #信息图标, “提示:”)
.如果真结束
.如果真 (编辑框1.内容 ≠ “”)
文件名 = { “文件名1”, “文件名2”, “文件名3”, “文件名4”, “文件名5”, “文件名6” }
编辑框1.内容 = 路径收缩 (编辑框1.内容) ' 避免目录含空格而查询失误
.计次循环首 (取数组成员数 (文件名), 临时计次)
.如果真 (文件是否存在 (编辑框1.内容 + 文件名 [临时计次]) = 假)
这里填你自己的命令。
.如果真结束
.计次循环尾 ()
.如果真结束
.子程序 路径收缩, 文本型, , 避免路径出现空格
.参数 路径, 文本型
.局部变量 临时计次, 整数型
.局部变量 返回路径, 文本型
.局部变量 目录级, 文本型, , "0"
目录级 = 分割文本 (路径, “\”, )
.计次循环首 (取数组成员数 (目录级), 临时计次)
.如果真 (取文本长度 (目录级 [临时计次]) ≥ 3)
目录级 [临时计次] = 删全部空 (目录级 [临时计次]) + “~1”
返回路径 = 删全部空 (返回路径) + 目录级 [临时计次] + “\”
.如果真结束
返回 (返回路径)
温馨提示:内容为网友见解,仅供参考