タイトル : Re^2: レジストリ 投稿日 : 2008/06/03(Tue) 13:21 投稿者 : VB
> 文字通り、物理ファイルのパス名でしょうか。 > それとも、レジストリキーの意味でしょうか。 > あるいは、レジストリの値のことでしょうか。 後者のレジストリの値です。^^; 種類はREG_SZです。 > 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 上記の解答、本当にありがとうございました。 完璧な解答です。。 |