|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| 01/07/2009 at 10:35AM PST, ID: 24032413 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: |
Public Sub IsAdobeInstalled()
'the best way to find adobe when so many versions are out there, and adobe uses a new folder for each version
'is to use the registry to see if adobe sits in the current users software keys
Dim regKey As Microsoft.Win32.RegistryKey
regKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Adobe", False)
Dim paths() As String = regKey.GetSubKeyNames
Dim path As String
Dim installed As Boolean = False
For Each path In paths
If path = "Acrobat" Then
installed = True
'MsgBox("Adobe Reader is installed")
End If
Next
regKey.Close()
If installed Then
'ContinueCode()
Else
If MessageBox.Show("Adobe Acrobat Reader is not installed, would you like to install now?", "Acrobat Reader", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
System.Diagnostics.Process.Start("AdbeRdr812_en_US.exe")
End
Else
'ContinueCode()
End If
End If
End Sub
|
Advertisement