Dim Key1 As Microsoft.Win32.RegistryKey
Key1 = My.Computer.Registry.LocalMachine
Dim Key2 As Microsoft.Win32.RegistryKey
Key2 = Key1.OpenSubKey("SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:804\", False) '注册表路径字符串前面不能有"\",后面可以有
If Key2 IsNot Nothing Then '存在
' AutoCAD2006安装路径
Dim CAD_Path As String = Key2.GetValue("Location").ToString
MsgBox(CAD_Path)
End If
Key1 = My.Computer.Registry.LocalMachine
Dim Key2 As Microsoft.Win32.RegistryKey
Key2 = Key1.OpenSubKey("SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:804\", False) '注册表路径字符串前面不能有"\",后面可以有
If Key2 IsNot Nothing Then '存在
' AutoCAD2006安装路径
Dim CAD_Path As String = Key2.GetValue("Location").ToString
MsgBox(CAD_Path)
End If
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |