タイトル : 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 |