易语言高级文件目录选择框模块源码

.子程序 选择目录, 逻辑型
.参数 strPathInit, 文本型, , 初始目录
.参数 lpStrPathRtn, 文本型, 参考, 返回路径
.局部变量 bReturn, 逻辑型

m_strPath ＝ strPathInit
载入 (FormMainDirectorySet, , 真)
bReturn ＝ 删首尾空 (m_strPathReturn) ≠ “”
.如果真 (bReturn)
lpStrPathRtn ＝ m_strPathReturn
.如果真结束
返回 (bReturn)