Happy with myself. Wanted to do summet..Done it...

Discussion in 'Scripting' started by tnx, Feb 18, 2016.

  1. tnx

    tnx MDL Expert

    Sep 2, 2008
    #1 tnx, Feb 18, 2016
    Last edited by a moderator: Apr 20, 2017
    I have reverted to using Windows 7.
    Used Windows 8.1 for a fair while, quite liked it.
    Used Windows 10, it's seems Ok but all his spying talk has me not 100% sure. So back to Windows 7.

    The one thing I really like about Win 8.1 is the full size Start Menu. Full of all my fave APPs. Click on an APP, the Start Menu closes and the APP runs.
    Yep, you know what I mean.

    In Windows 7 I have made my own APPs folder where I keep all the shortcuts to my fav and most used APPs. Notepad, Word, Photoshop etc etc etc..
    But What bugs me is when I click on the shortcut, sure the APP runs but my APPs folder stays open. Or it did...:g:

    Just tested this out on Notepad.

    Option Explicit
    Dim notepad, closewindow 
    Set notepad = WScript.CreateObject( "WScript.Shell" )
    notepad.Run "%windir%\notepad " 
    Set notepad = Nothing
    Set closewindow = CreateObject("WScript.Shell")
    closewindow.SendKeys "^w"
    saved that as a .vbs.

    Wait that looks rubbish. Made a shortcut of that new .vbs file. Change the icon of this new .vbs shortcut to the Notepad.
    Place this new file in my APPs folder.
    Double clicking on the file opens Notepad and closes the APPs folder...

    Works like a charm.

    Now just to do the same with ALL the other APP shortcuts...