易语言如何提取文件夹路径

Question

-----------------------------------------------------------------
单击按钮1,选择文件夹,获取路径:C:\Documents and Settings\Administrator\My Documents\新建文件夹\
的代码怎么写??编辑框1的内容只有一个路径,不需要具体的文件名!通用对话框选择保存路径需要输入一个文件名!我想要的只需要选择到文件夹就行了!
没这么麻烦了！我自己搞定了！不过还是谢谢你们！你们看看不？
.版本 2

.程序集 窗口程序集1

.子程序 _驱动器框1_驱动器被改变

目录框1.目录 ＝ 驱动器框1.驱动器 ＋ “:\”
编辑框1.内容 ＝ 目录框1.目录

.子程序 _窗口1_创建完毕

目录框1.目录 ＝ “d”
驱动器框1.驱动器 ＝ “D”
编辑框1.内容 ＝ 目录框1.目录 ＋ “:\我的下载”

.子程序 _编辑框1_内容被改变

.子程序 _目录框1_目录被改变

驱动器框1.驱动器 ＝ 目录框1.目录
编辑框1.内容 ＝ 目录框1.目录

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

_启动窗口.编辑框1.内容 ＝ 编辑框1.内容
窗口1.销毁 ()

Answer 1

.版本 2
.支持库 shell

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

.子程序 _按钮1_被单击
.局部变量 计数变量, 整数型
.局部变量 写出文件名, 文本型
.局部变量 写出目录, 文本型

写出目录 ＝ 浏览文件夹 (“请选择输出目录”, 假)
.如果真 (写出目录 ＝ “”)
返回 ()
.如果真结束
写出目录 ＝ 写出目录 ＋ “\”
置等待鼠标 ()
处理事件 ()
.计次循环首 (列表框1.取项目数 (), 计数变量)
写出文件名 ＝ 写出目录 ＋ 列表框1.取项目文本 (计数变量 － 1)
写到文件 (写出文件名, 读入文件 (列表框1.取项目文本 (计数变量 － 1)))
.计次循环尾 ()
恢复鼠标 ()

其中，写出文件名，你需要自己处理一下，先取得列表框中文件的短文件名，然后再加上目录就可以了。

Answer 2

使用扩展组件中的 目录编辑框 组件就可以了
如果没有请检查支持库(没有配置或没有该支持库)

得到目录后使用写到文件命令