Send To Question - QuickLaunch Shortcuts

Discussion in 'Windows Desktop Systems' started by kcnychief, Sep 29, 2006.

  1. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    What I want to be able to do is modify the SendTo Menu, so it includes an option that will behave similar to the SendTo Desktop. I want to be able to right-click, go to SendTo, and have a shortcut, not the entire file or folder, go to the QuickLaunch bar.

    If you go into the SendTo folder, and put a shortcut to quicklaunch, it will send the entire folder or file, not a shortcut.

    I know how to do it via a script, and through shareware:

    http://www.microsoft.com/technet/scriptcenter/resources/qanda/sept05/hey0901.mspx

    http://www.gabrieleponti.com/software/

    But I don't want to do that for end users.

    Thoughts?
     
  2. Admiral Michael

    Admiral Michael Michaelsoft Systems CEO Folding Team

    Last edited: Sep 29, 2006
  3. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    Dragging to the bar is not an option, I want a SendTo.

    Thanks for the link, but that doesn't do it either ;)

    I have actually gotten very creative in trying to figure ways out to accomplish this, nothing yet but I have some cool stuff :D
     
  4. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    hmm.. interesting (wannbe) tweak. I would have just said create the shortcut in the quick launch, but you want to create a shortcut.. not move the whole item.

    If there was a way to pass the file/folder you right-click/send to with, you could use the vbscript and pass the file into the vbscript to create the shortcut and just put the vbscript file in the send to folder. Unfortunatly, my quick test doesn't seem to pass anything automatically.
    But, it does have to pass something..

    edit: BAH! It does pass it as a parameter. I had a typo in my quick and dirty test script.
    Give me a minute, let me work something up.
     
    Last edited: Sep 29, 2006
  5. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    I played with the script a bit, and while it does accomplish the task, it doesn't create the SendTo menu as desired.

    This is something we want to be able to implement globally.

    Fwiw, I actually used that SendToToys I think it's called (link above), and did a WinDiff on the registry before and after to see what keys it changed. Unfortunately, the keys weren't actually changed, they were created. The keys were also proprietary, which would be useless without the actuall application present.
     
  6. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    What do you mean it doesn't create the sendTo menu as desired?

    Code:
    'Pulls the argument that gets passed to the vbscript file.
    'When you Right-click and go to sendTo and select an option, the full path
    'Of the file or folder gets passed (ie: "c:\windows\notepad.exe")
    'Full path is assigned to the variable strTarget
    strTarget = wscript.arguments(0)
    
    'Creates the File System Object
    set objFSO = CreateObject("Scripting.FileSystemObject")
    
    'Creates Shell Object
    set objShell = CreateObject("Wscript.Shell")
    
    'Pulls a list of environment variables
    Set colEnvironmentVariables = objShell.Environment("Volatile")
    
    'Gets the path to the users Quick Launch folder
    'Assigns the path to the strFolder variable
    strFolder = colEnvironmentVariables.Item("APPDATA") & "\Microsoft\Internet Explorer\Quick Launch\"
    
    'Pulls the basename of the target
    'Example: "c:\windows\notepad.exe" -- will only pull the "notepad.exe" portion
    strShortName = objFSO.GetBaseName(strTarget)
    
    'Creates the Shortcut object in the quickLaunch folder
    set objShortCut = objShell.CreateShortcut(strFolder & strShortName & ".lnk")
    
    'Sets the shortcut to the target
    objShortCut.TargetPath = strTarget
    
    'Saves the shortcut
    objShortCut.Save
    
    1) Drop this script into the windows directory (or any other folder on the client)

    2) Create a shortcut to this script in the "c:\documents and settings\%username%\SendTo" folder.

    3) Rename Shortcut to whatever you want.. something like "Send to Quick Launch Bar As Shortcut" (create a nice icon if you really want to get real fancy..)

    When you right click a file/folder, select send To/%shortcut you created%
    It will create a shortcut in the users QuickLaunch bar to the file or folder

    edit: This is not the most elegant script.. and not the most debugged script. Use it at your own risk.. I'm assuming you have the ability to hack it up and modify it more to your specific needs.. You can add error checks and the like and/or edit the short cut descriptions and other properties if you want as well.
     
    Last edited: Sep 30, 2006
    Admiral Michael likes this.
  7. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    Wow that does work, simply amazing fitzy!

    I'll probably make a neat little icon for it too :)

    I still want to try and figure out what the registry entries for this would be though.
     
  8. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    Always good to know something I try works :)
     
  9. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    I'm curious as to how you got this figured out, perhaps you could comment your above post?
     
  10. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    comment what? the code?

    hmm.. ok
    *edited*
     
  11. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    Makes perfect sense, thanks man.

    Rep++

    -edit-

    When I can :(
     
  12. brocher

    brocher Moderator

    Messages:
    516
    This is an easy fix to do!
    Simply EXPLORE c:/documents and settings/username. The find the folder SEND TO and open it. add a new folder or shortcut and link it to the one you want. Then when you right click it will appear in the menu that opens.

    Hope this helps you with your problem.

    Not sure how you would implement this into a network situation but it's a start.
     
  13. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    how does this solve his original problem/question? All this does is add an a folder to the send to menu. It won't create a shortcut.


     
  14. Admiral Michael

    Admiral Michael Michaelsoft Systems CEO Folding Team

    Be nice fitz.

    brocher:

    Basically KC wanted to create a shorcut to the item, the way you described actually copies the item to the quick launch folder.
     
  15. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    *grumble*

    Sorry.. kinda cranky today.. have a bad headache :(
     
  16. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    Yeah, Brocher's suggestion won't really cut the mustard. I didn't want to copy the file or folder, just create a shortcut to that file/folder.

    Thanks though brocher :)
     
  17. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    hey! where's my rep for this!?! :)

    *sorry* feeling like a rep whore today.. :(
     
    Mooz, kcnychief and madmatt like this.
  18. kcnychief

    kcnychief █▄█ ▀█▄ █ Political User Folding Team

    Messages:
    16,948
    Location:
    Massachusetts
    Sorry, given and well deserved :D
     
  19. Mooz

    Mooz Moozically Con~foozed

    Messages:
    126
    Location:
    UK
    inspired fitz ... i script vbs for a living and didnt consider this as a possible solution to the issue good work well done.
     
  20. fitz

    fitz Just Floating Along Staff Member Political User Folding Team

    Messages:
    4,076
    Location:
    Chicagoland
    *blush*

    awww.. shucks :)