Windows 10: Can't Create Shortcut - Windows 11 is Confusing a Directory with a *.bat File of the Same Name.

I have a directory called "test1" In that directory I also have a *.bat file called test1.bat.When I try to create a shortcut to the directory test1 - Windows thinks, assumes, that I'm creating a shortcut to the file called test1.bat. When I double click the shortcut test1.bat attempts to run it can't since Explorer isn't CMD. To be very clear I want a shortcut to the DIRECTORY called test1 not a *.bat file. There doesn't seem to be a reasonable way to fix this. I'm stuck.I'm using Windows 11 Pro - and Explorer of course

:)

 

Creating Shortcuts with Batch File

Threw a program together quick for you. It is attached with source in the other. Use it in place of your VBScript.

It supports:
CreateShortcut [save shortcut] [path to run]
CreateShortcut [save shortcut] [path to run] [icon index]
CreateShortcut [save shortcut] [path to run] [icon file]
CreateShortcut [save shortcut] [path to run] [icon file] [icon index]

If "icon index" is missing, it assumes 0. If "icon file" is missing it assumes "path to run." It doesn't presently support arguments to be added to the shortcut nor modifying the working directory (always assumes same directory as "path to run").

Requires .NET Framework 4.0 to run. Will run natively on 32-bit and 64-bit versions of Windows.

 

Creating Shortcuts with Batch File

No error, when I run the BAT file the CMD prompt shows and looks like it did stuff. But no shortcut on my Desktop.

 

Creating Shortcuts with Batch File

I've created a Batch file which calls on the following VB Script to be able to create a shortcut to my desktop:

VB Script (named createLink.vbs):
Code: set objWSHShell = CreateObject("WScript.Shell") set objFso = CreateObject("Scripting.FileSystemObject") ' command line arguments ' TODO: error checking sShortcut = objWSHShell.ExpandEnvironmentStrings(WScript.Arguments.Item(0)) sTargetPath = objWSHShell.ExpandEnvironmentStrings(WScript.Arguments.Item(1)) sWorkingDirectory = objFso.GetAbsolutePathName(sShortcut) set objSC = objWSHShell.CreateShortcut(sShortcut) objSC.TargetPath = sTargetPath objSC.WorkingDirectory = sWorkingDirectory objSC.Save[/quote] Batch File Example (for Windows Notepad):
Code: @Echo off cscript createLink.vbs "C:\Users\Administrator\Desktop\Notepad.lnk" "C:\Windows\System32\notepad.exe"[/quote] But after creating the shortcut using this method, I'm not able to assign a custom icon for the shortcut. I get the following error message when trying to do so:





Any help and ideas on what I need to put into the VB Script and/or Batch File to be able to do this would be greatly appreciated! *Big Grin

Also, I know that I can simply do this by going to Start Menu\All Programs\Accessories\ right-clicking on Notepad and selecting Send to\Desktop (create shortcut). Easy enough for creating a single shortcut. But I need to create several multiple shortcuts and using this Batch/VBS method would really save me a lot of time in doing so.