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
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦! |
用户登陆
站点日历
站点统计
最新评论
VB .net 获取AutoCAD2006安装路径 [ 日期:2009-11-18 ] [ 来自: