VBA讀註冊表

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