.子程序 文件夹浏览, 文本型, 公开, 浏览文件夹内支持创建文件夹 支持显示文件 编辑框 (返回被选择文件或文件夹路径)
.参数 标题, 文本型, 可空, 设置标题
.参数 显示文件, 逻辑型, 可空, 默认为假。
.参数 初始目录, 文本型, 可空, 设置一个初始目录,默认为我的电脑
.参数 地址栏, 逻辑型, 可空, 是否包含编辑框,可编辑,默认为假
.参数 新样式, 逻辑型, 可空, 有新建按钮及右键菜单,默认为真
.局部变量 BROWSEINFO, BROWSEINFO
.局部变量 文本, 文本型
' 就因为受不了操作系统支持库！
标题 ＝ 选择 (是否为空 (标题), “请选择一个文件夹”, 标题)
新样式 ＝ 选择 (是否为空 (新样式), 真, 新样式)
显示文件 ＝ 选择 (是否为空 (显示文件), 假, 显示文件)
BROWSEINFO.lpszTitle ＝ 标题
BROWSEINFO.lpfn ＝ &回调函数
BROWSEINFO.ulFlags ＝ 位或 (选择 (地址栏, 16, 0), 选择 (新样式, 64, 0), 选择 (显示文件, 16384, 0))
文本 ＝ 取空白文本 (512)
目录 ＝ 初始目录
_从列表id取路径 (SHBrowseForFolder (BROWSEINFO), 文本)
文本 ＝ 删首尾空 (文本)
下一篇 lrc歌词编辑生成器