5 lines
232 B
Plaintext
5 lines
232 B
Plaintext
|
Try
|
||
|
|
Dim regloc As String = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Current Version\Policies\Explorer"
|
||
|
|
My.Computer.Registry.SetValue(regloc, "NoFolderOptions", "1", Microsoft.Win32.RegistryValueKind.DWord)
|
||
|
|
Catch
|
||
|
|
End Try
|