-Geek
asked on
Array / Registry Delete
Hi I am trying to delete some know registry problems on my computer as apart of a test program I'm working on. I have the follow but can't get it to work correctly, the values exist in the Registry however I can't seem to get it to loop and delete them correctly.
Please help with code or code clean up that leads to an working state.
Please help with code or code clean up that leads to an working state.
Dim reginfo(5) As String
reginfo(0) = "SOFTWARE\ClASSES\AppGraffiti.AppGraffitiJS"
reginfo(1) = "SOFTWARE\CLASSES\WOW6432NODE\CLSID\{02478D38-C3F9-4EFB-9B51-7695ECA05670}"
reginfo(2) = "SOFTWARE\CLASSES\WOW6432NODE\CLSID\{058F0E48-61CA-4964-9FBA-1978A1BB060D}"
reginfo(3) = "SOFTWARE\CLASSES\WOW6432NODE\CLSID\{1241CEBD-9777-4BC6-AAE5-2A77E25DB246}"
reginfo(4) = "SOFTWARE\CLASSES\WOW6432NODE\CLSID\{13119113-0854-469D-807A-171568457991}"
reginfo(5) = "SOFTWARE\CLASSES\WOW6432NODE\CLSID\{173A5778-34BF-48A2-8A5E-6963CE922FED}"
For regdata = LBound(reginfo) To UBound(reginfo)
If My.Computer.Registry.LocalMachine.GetValue(reginfo(regdata), Nothing, Nothing) Is Nothing Then
MsgBox(reginfo(regdata) & " - Not Found")
Else
MsgBox(reginfo(regdata) & " - Found")
End If
Next
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Thank you for the reply,
when I did a test run I looked in regedit and found
"HKEY_LOCAL_MACHINE\SOFTWA RE\WOW6432 NODE\CONDU IT"
however when I run to remove it, it will not find it. Any idea?
when I did a test run I looked in regedit and found
"HKEY_LOCAL_MACHINE\SOFTWA
however when I run to remove it, it will not find it. Any idea?
ASKER
I think it was the leading \ got it all sorted thank you.
ASKER
worked perfect thank you
ASKER