VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

レジストリのサブキーの一覧を取得する(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/26 19:02
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[レジストリ][システム関係][]                                        *
* キーワード：レジストリ,サブキー,レジストリキー　                                *
***********************************************************************************
タイトル：レジストリ
記事No ： 12417
投稿日： 2008/06/03(Tue) 11:25
投稿者： VB

subkey = "SYSTEM\CurrentControlSet\Control\Print\Printers"
↑Printers直下の全てのサブキー内にある
　(Printers直下のサブキーは、統一性はないです。)
ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, KEY_READ, hKeyResult)

Value = "test"
↑このtestファイルの中身をすべて取得したい。

-----------------------------------------------------------------------------------
記事No ： 12418
投稿日： 2008/06/03(Tue) 12:54
回答者：魔界の仮面弁士
-----------------------------------------------------------------------------------

Option Explicit

Private Sub Command1_Click()
    Dim subKey As String
    subKey = "SYSTEM\CurrentControlSet\Control\Print\Printers"

    Dim keyName As String
    keyName = "Port"

    With GetObject("winmgmts:\root\default:StdRegProv")
        Const HKEY_LOCAL_MACHINE As Long = &H80000002
        Dim keyList() As Variant, varKey As Variant, varValue As Variant
        .EnumKey HKEY_LOCAL_MACHINE, subKey, keyList
        For Each varKey In keyList
            If .GetStringValue(HKEY_LOCAL_MACHINE, _
              subKey & "\" & varKey, keyName, varValue) = 0 Then
                Debug.Print "HKLM\" & subKey & "\" & varKey & "\" & keyName
                Debug.Print , varValue
            End If
        Next
    End With
End Sub