by S.M. Mehdi Akram (5 Submissions)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29th November 2008
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Enable Folder Options
VBcoders
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
