Private Sub CommandButton20_reg_sldmat_Click() 'SW材质数据文件所在位置
'VBA使用WMI(WindowsManagement Instrumentation)对象的StdRenProv类操作注册表,没有范围限制、功能强大。
Dim xStrTemp As String
Dim xWMIObj As Object
Dim arrFolders() As String '文件夹字符串数组
Dim nFolders As Integer '文件夹字符串数组元素的个数
Dim msg As String
Dim i As Long
On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
Set xWMIObj = GetObject("winmgmts:\\.\root\default:StdRegProv")
xWMIObj.GetStringValue HKEY_CURRENT_USER, "Software\SolidWorks\SolidWorks 2015\ExtReferences", "Material Database Folders", xStrTemp
'Document Template Folders 文档模板
'Material Database Folders 材质数据库
arrFolders() = Split(xStrTemp, ";")
msg = ""
nFolders = UBound(arrFolders) - LBound(arrFolders) + 1
For i = 0 To nFolders - 1
msg = msg + arrFolders(i) + vbCrLf + vbCrLf
Next
UserForm2_MSG_BOX.TextBox1.Text = msg
UserForm2_MSG_BOX.Show '提示框
End Sub