|
发表于 2021-5-11 10:20:32
|
显示全部楼层
广东省惠州市
改进后只能显示手机目录文件夹名称,但不能显示路径
- .版本 2
- .子程序 目录_浏览, 文本型, 公开, 浏览文件夹内支持创建文件夹 支持显示文件 编辑框 (返回被选择文件或文件夹路径)
- .参数 标题, 文本型, 可空, 设置标题
- .参数 显示文件, 逻辑型, 可空, 默认为假。
- .参数 初始目录, 文本型, 可空, 设置一个初始目录,默认为我的电脑
- .参数 地址栏, 逻辑型, 可空, 是否包含编辑框,可编辑,默认为假
- .参数 新样式, 逻辑型, 可空, 有新建按钮及右键菜单,默认为真
- .参数 父窗口句柄, 整数型, 可空
- .局部变量 BROWSEINFO, 精易_目录浏览
- .局部变量 文本, 文本型
- .局部变量 DisplayName, 文本型
- .局部变量 pidlFolder
- .局部变量 hresult
- ' 就因为受不了操作系统支持库!
- 标题 = 选择 (是否为空 (标题), “请选择一个文件夹”, 标题)
- 新样式 = 选择 (是否为空 (新样式), 真, 新样式)
- 显示文件 = 选择 (是否为空 (显示文件), 假, 显示文件)
- DisplayName = 取空白文本 (#MAX_PATH)
- BROWSEINFO.hOwner = 父窗口句柄
- BROWSEINFO.lpszTitle = 标题
- BROWSEINFO.lParam = 取指针文本_ (初始目录)
- BROWSEINFO.lpfn = &回调函数
- BROWSEINFO.ulFlags = 位或 (选择 (地址栏, 16, 0), 选择 (新样式, 64, 0), 选择 (显示文件, 16384, 0))
- BROWSEINFO.pszDisplayName = DisplayName
- 文本 = 取空白文本 (512)
- pidlFolder = SHBrowseForFolderA (BROWSEINFO)
- hresult = SHGetPathFromIDListA (pidlFolder, 文本)
- 文本 = 删首尾空 (文本)
- .如果真 (hresult = 0 且 文本 = “”)
- 文本 = 删首尾空 (BROWSEINFO.pszDisplayName)
- .如果真结束
- 返回 (文本)
复制代码
|
评分
-
查看全部评分
|