'AutoCAD VBA
选择文件夹的代码
'
流沙之泉编写于
2018
年
11
月
30
日,于
AutoCAD2017 64
位上测试通过。
'
将此份文档另存为纯文本格式文件
MdFileBrw.bas
,
'
并导入至
vba
的模块中即可在其他模块调用当中的函数。
'
其中
GetFolder
函数可以选择文件夹并返回选择的路径(按取消则返回空字符串)
,
'ListFilesFSO
过程可以根据传入的文件夹路径在调试输出窗口输出文件名,
不含子文件夹。
Attribute VB_Name = "MdFileBrw"
Option Explicit
'*************
系统类型与函数声明开始
***************
Public Type BROWSEINFO
hOwner As LongPtr
pidlRoot As LongPtr
pszDisplayName As String
lpszTitle As String
ulFlags As LongPtr
lpfn As LongPtr
lParam As LongPtr
iImage As LongPtr
End Type