易语言怎样用通用对话框实现选择的文件路径显示到编辑框里

【先添加1个编辑框和一个按钮】（此行不用复制）

.版本 2

.程序集 窗口程序集1

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

.子程序 _按钮1_被单击
.局部变量 ShellF, 对象
.局部变量 FolderF, 对象
.局部变量 FolderItemF, 对象

ShellF.创建 (“Shell.Application”, )
FolderF ＝ ShellF.读对象型属性 (“BrowseForFolder”, 0, “请选择目录:”, 0, “C:\Scripts”)
FolderItemF ＝ FolderF.读对象型属性 (“Self”, )
.如果 (取文本长度 (FolderItemF.读文本属性 (“Path”, )) ＝ 0)

.否则
编辑框1.内容 ＝ FolderItemF.读文本属性 (“Path”, )
.如果真 (取文本右边 (编辑框1.内容, 1) ≠ “\”)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “\”
.如果真结束

.如果结束
返回 ()

.版本
2.支持库
edroptarget
.程序集
窗口程序集1
.子程序
__启动窗口_创建完毕
拖放对象1.注册拖放控件
(_启动窗口.取窗口句柄
())拖放对象1.接收文件
＝
真
.子程序
_拖放对象1_得到文件
.参数
接收到的文件路径,
文本型
.局部变量
文件名,
文本型,
,
"0"
文件名
＝
分割文本
(接收到的文件路径,
#换行符,
1)
编辑框1.内容
＝
文件名
[1]

我也刚好是这个问题..