Enable Folder Options
Enable Folder Options
Rate Enable Folder Options
(2(2 Vote))
Dim s As String
' S.M. Mehdi Akram
' [email protected]
' Need a Command button
Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
b.regwrite s, 0, "REG_DWORD"
Set b = CreateObject("wscript.shell")
s = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
b.regwrite s, 0, "REG_DWORD"
End Sub
Enable Folder Options Comments
No comments yet — be the first to post one!
Post a Comment