Imports Microsoft.Win32 Module Module1 ' Class1 の概要の説明です。 Sub Main() ' 操作するレジストリ・キーの名前 Dim rKeyName As String = "SOFTWARE\Microsoft\.NETFramework" ' 取得処理を行う対象となるレジストリの値の名前 Dim rGetValueName As String = "DbgJITDebugLaunchSetting" ' レジストリの取得 Try ' レジストリ・キーのパスを指定してレジストリを開く Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey(rKeyName) ' レジストリの値を取得 Dim location As Object = rKey.GetValue(rGetValueName) ' 開いたレジストリを閉じる rKey.Close() ' 取得したデータのデータ型を調べる Dim dataType As Type = location.GetType() ' コンソールに取得したレジストリの値を表示 Console.WriteLine(dataType.ToString() + ":" + location.ToString()) ' 環境変数を含む文字列の展開(サンプル・コード) Dim envstr As String = "%SystemRoot%" Dim expnadedstr As String = Environment.ExpandEnvironmentVariables(envstr) Console.WriteLine(expnadedstr) Catch ex As NullReferenceException ' レジストリ・キーまたは値が存在しない Console.WriteLine("レジストリ[" + rKeyName + "]の[" + rGetValueName + "]がありません!") End Try End Sub End Module