[已解决]请教各位老师，如何用VBA代码更改注册表键值？

wjp023

我想用VBA把下面的注册表项的iexplore的值从0改成1，请问如何写代码？
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InternetExplorer\Main\FeatureControl\FEATURE_INTERNET_SHELL_FOLDERS

最佳答案

月排行榜 / 总排行榜

zjdh

2015-5-29 08:06

Sub RegWrite()
    Dim WshShell
    Regkey = "HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_INTERNET_SHELL_FOLDERS\iexplore.exe"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite Regkey, 1, "REG_DWORD"
End Sub

跳转到最佳答案楼层

zjdh

Sub RegWrite()
    Dim WshShell
    Regkey = "HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_INTERNET_SHELL_FOLDERS\iexplore.exe"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite Regkey, 1, "REG_DWORD"
End Sub

wjp023

谢谢，我试试