添加一个列表框。灶洞姿
_子程序_启动窗口_创建完毕_
枚举文件()
_子程序_枚举文件
局部变量 文件路径 文本型
局部变量 文件名称 文本型
文件路径=取运行目录颤薯()+"\*.*"
文件名称=寻找文件(文件路径,隐绝)
判断循环首(文件名称≠"")
列表框1.加入项目(取文本左边(文件路径,取文本长度(文件路径)–3)+文件名称,)
文件名称=寻找文件(,)
判断循环尾()
这样就把运行目录下的文件枚举在列表框里面了,想要打开可以:
点击选中列表框,然后在左边点属性点上方的三角尖,选中列表框双击选择项,会自动添加一个子程序,在那个子程序下写:
打开指定网址(列表框1.取项目文本(列表框1.现行选中项))
这样双击列表框的项目就能打开文件。
版本 2.子程序或悔
_按钮1_被单击
.局部变量 文件名称, 文源腔本型
文件名称 = 寻找文件 (“d:\欲取目录\衫裂正*.*”, )
.判断循环首 (文件名称 ≠ “”)
列表框1.加入项目 (文件名称, )
文件名称 = 寻找文件 (, )
.判断循环尾 ()
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)