Fixes the problem where Search or Command Prompt opens when clicking on a folder. (VB Script)

'Fixes the problem where Search or Command Prompt opens when clicking on a folder.
Dim WshShell, M, Message

Message = "This script will fix the problem where Search or Command Prompt opens when clicking on a folder." & vbCr & vbCr _
& "Adding information can unintentionally change or delete values and cause components to stop working correctly." _
& " If you do not trust the source of this information, do not add it to the registry." & vbCr & vbCr _
& "Would you like to continue?"

M = MsgBox(Message, vbYesNo + vbInformation, "Paul's XP and Vista Tweaks")
If M = 6 Then

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKEY_CLASSES_ROOT\Directory\shell\", "none", "REG_SZ"
WshShell.RegWrite "HKEY_CLASSES_ROOT\Drive\shell\", "none", "REG_SZ"

Message = "Folders will now Open." & vbCr & vbCr _
& "This script was downloaded from www.paulsxp.com."
MsgBox Message, 64, "Finished!"

If MsgBox("If you find this script was helpful and you would like to make a Donation?" & vbCr & vbCr & "Click Yes to visit my Donation page at Paul's Web
Site." & vbCr & vbCr & _
"All donations are made through PayPalŪ.", vbInformation + vbYesNo + vbDefaultButton, "Make a Donation") = 6 Then
WshShell.Run "http://www.paulsxp.com/donation.html"
End If
End If

Download


Back to Line 14