tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: レジストリ
投稿日: 2008/06/03(Tue) 12:54
投稿者魔界の仮面弁士
> Value = "test"
> ↑このtestファイルの中身をすべて取得したい。

『ファイル』というのは、何のことでしょうか?

文字通り、物理ファイルのパス名でしょうか。
それとも、レジストリキーの意味でしょうか。
あるいは、レジストリの値のことでしょうか。


とりあえずレジストリキーの事だと仮定すれば、こんな感じかな。



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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。