Question

（高分！）易语言通用对话框打开文件夹

不是exe文件，是文件夹，直接弄到文件夹的路径，例如：我的QQ在D盘
D:\qq\bin，点一下打开就打开文件夹，点一下确定就得到路径，弄到编辑框1.内容
在线等！

Answer 1

对话框

通用对话框.类型=0
通用对话框.过滤器="QQ炫舞.exe|QQ炫舞.exe|所有程序|*.exe"
通用对话框.初始过滤器=0
通用对话框.打开()

初始目录、还有其他属性自己设。

图中的可以使用打开多文件对话框模块

打开多文件对话框 (,"打开炫舞程序" , “QQ炫舞|QQ炫舞.exe|所有程序|*.exe”,)

模块名称：打开多文件对话框
作者：云外归鸟
版本：1.0

打开多文件对话框（父窗口句柄，标题，过滤器，初始路径）

------------------------------

.版本 2

.子程序 打开多文件对话框, 文本型, 公开, 多选文件,返回文件路径以";"分隔。打开失败或取消返回空文本
.参数 父窗口句柄, 整数型, 可空, 被调用处
.参数 标题, 文本型, 可空, 对话框窗口标题
.参数 过滤器, 文本型, 可空, 形式：“MP3文件|*.mp3|mpg文件|*.mpg”
.参数 初始路径, 文本型, 可空, 空出为默认路径，一般是在“我的文档”开始

Answer 2

很简单。

.版本 2
.支持库 shell

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

编辑框1.内容 ＝ 取文本注册项 (4, “SOFTWARE\TENCENT\QQ2009\Install”, “”) ＋ “\”

.子程序 _按钮1_被单击

执行 (2, 编辑框1.内容 ＋ “bin”, , , )

Answer 3

.如果真（通用对话框1.打开（））
编辑框1.内容=通用对话框1.文件名

手打的 不是从E里面的代码复制来的~

Answer 4

取运行目录（）”
1， 打开文件() 命令。
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.通用对话框1.初始目录=“这里填写目录路径 或 取运行目录（）”
.通用对话框1.类型 ＝ 1
.如果真 (通用对话框1.打开 ())
文件号 ＝ 打开文件 (通用对话框1.文件名 ，“F1 参考帮助信息”, “F1 参考帮助信息”)
' 写出文本（）
' 写出数据（）
' 写出字节集（）
' 以上根据写出类型选择，具体参考帮助文档
关闭文件 (文件号)
.如果真结束
2，写到文件（）命令。
.版本 2
.子程序 _按钮1_被单击
.通用对话框1.初始目录=“这里填写目录路径 或 取运行目录（）”
通用对话框1.类型 ＝ 1
.如果真 (通用对话框1.打开 ())
写到文件 (通用对话框1.文件名, “字节集 具体进行字节集转换”)
.如果真结束

Answer 5

’通用对话框1.初始目录=“这里填写目录路径 或 取运行目录（）”
1， 打开文件() 命令。
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.通用对话框1.初始目录=“这里填写目录路径 或 取运行目录（）”
.通用对话框1.类型 ＝ 1
.如果真 (通用对话框1.打开 ())
文件号 ＝ 打开文件 (通用对话框1.文件名 ，“F1 参考帮助信息”, “F1 参考帮助信息”)
' 写出文本（）
' 写出数据（）
' 写出字节集（）
' 以上根据写出类型选择，具体参考帮助文档
关闭文件 (文件号)
.如果真结束
2，写到文件（）命令。
.版本 2
.子程序 _按钮1_被单击
.通用对话框1.初始目录=“这里填写目录路径 或 取运行目录（）”
通用对话框1.类型 ＝ 1
.如果真 (通用对话框1.打开 ())
写到文件 (通用对话框1.文件名, “字节集 具体进行字节集转换”)
.如果真结束

追问

我要通用的！

追答

版本 2

.子程序 _按钮1_被单击

通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名

.子程序 _按钮2_被单击

运行 (编辑框1.内容, 假, )

参考资料： http://www.jdw8.com/