How to create a shortcut to a custom location

This article introduces the knowledge about "how to create shortcuts to custom locations". In the actual case operation process, many people will encounter such difficulties. Next, let Xiaobian lead you to learn how to deal with these situations! I hope you can read carefully and learn something!

Save the following code content as shortcut.vbs, and then create a shortcut to the sendto directory (C:\Documents and Settings\username\SendTo), change the name you want, such as "Create shortcut to my work directory", you can create a shortcut, and support multiple files, just need to change the strFolder in the fourth line of the script to the value you need:

The copy code is as follows:

Set unNamedArguments = WScript.Arguments.UnNamed

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

Set objFSO = CreateObject("Scripting.FileSystemObject")

strFolder = "d:\temp\" 'followed by the symbol "\"

for count = 0 to wscript.arguments.count-1 Step 1

filename = unNamedArguments.Item(count)

Set objFile = objFSO.GetFile(filename)

set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")

oShellLink.TargetPath = filename

oShellLink.WindowStyle = 1

oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)

oShellLink.Save

NEXT

"How to create a shortcut to a custom location" content is introduced here, thank you for reading. If you want to know more about industry-related knowledge, you can pay attention to the website. Xiaobian will output more high-quality practical articles for everyone!