How to run a script using a simple keyboard shortcut

I have posted this earlier as a followup question Shortcut to hide and unhide folders and files

It might be best if I start a new thread with this query.

I've created the script that I asked about there and works just as I want, but is there some way to run this script using a simple keyboard shortcut that I could set up , something like Ctrl+Alt+H

Have done a Google search and things I have been advised to try just do not work or are very complicated and involve a deep understanding of programming.

Again , if someone could point me in the right direction would be very pleased.

SFM

Create a regular shortcut for the file first (which has a little arrow on the bottom left of the icon) then on it make Right mouse click - Properties - Shortcut tab - click on the line Shortcut key - Press desired key combination - Apply.

(Limited to Ctrl+Alt+ one more key)

Thanks but I already tried that. It looks like you can not run a .vbs script using a keyboard shortcut after creating a shortcut , as in your post:-(

Nothing happens when you try the keyboard shortcut.

Obviously keyboard shortcuts work just fine with actual .exe programs , but do not work with a .vbs script. Thanks anyway.

sanfranman said:

Nothing happens when you try the keyboard shortcut.

That is interesting. I have tried that myself. And it worked with vbs...

Thanks, I tried your vbs and all works fine for me too using a keyboard shortcut.

My problem must be something to do with the script itself. I found it on a website when I asked about how to hide and unhide files and folders in W7 without having to go through the usual process.

I am not experienced with scripts but that script works fine, just that I can not get it to work with a keyboard shortcut that I put on the shortcut to the script.

Just for your interest , this is the script in question:

Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"

SHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"

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

St = Sh.RegRead(Hidden)

If St = 2 Then

Sh.RegWrite Hidden, 1, "REG_DWORD"

Sh.RegWrite SHidden, 1, "REG_DWORD"

Else

Sh.RegWrite Hidden, 2, "REG_DWORD"

Sh.RegWrite SHidden, 0, "REG_DWORD"

End If

Sh.SendKeys("{F5}")

sanfranman said:

I can not get it to work with a keyboard shortcut that I put on the shortcut to the script.

I have copied and pasted your script. And key shortcut of it's shortcut worked for me.
The only problem I have found is that F5 command at the end of the script does not work, because Explorer window becomes inactive, when script starts.

I had to manually press F5. Other than that, is all works just fine:
script alternates settings for hidden folders.

Thanks for your time in looking into this . Tried exactly what you suggested , no luck. I'm really over it. I'll just click on the script file or shortcut and forget about the key shortcut.