用批处理写：把当前文件夹在桌面建立一个快捷方式

::把下面所有的内容保存成批处理文件，并放入文件夹A下双击运行

::该批处理把文件夹A快捷方式放入桌面
for %%i in (%cd%) do (
echo [InternetShortcut]>>%%~ni.url
echo URL=%%~fi>>%%~ni.url
echo IDList=>>%%~ni.url
echo IconFile=c:\windows\system32\shell32.dll>>%%~ni.url
echo IconIndex=3>>%%~ni.url
move %%~ni.url "%userprofile%\桌面"
)

::该批处理把文件夹C快捷方式放入桌面
for %%i in (%cd%\B) do (
echo [InternetShortcut]>>%%~ni.url
echo URL=%%~fi>>%%~ni.url
echo IDList=>>%%~ni.url
echo IconFile=c:\windows\system32\shell32.dll>>%%~ni.url
echo IconIndex=3>>%%~ni.url
move %%~ni.url "%userprofile%\桌面"
)

::该批处理把文件b.exe快捷方式放入桌面及文件夹C
for %%i in (%cd%\B.exe) do (
echo [InternetShortcut]>>%%~ni.url
echo URL=%%~fi>>%%~ni.url
echo IDList=>>%%~ni.url
echo IconFile=c:\windows\system32\shell32.dll>>%%~ni.url
echo IconIndex=2>>%%~ni.url
copy %%~ni.url "%userprofile%\桌面"
move %%~ni.url C
)

有点麻烦
给你个思路:
@echo off
>"%userprofile%\桌面\2.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%userprofile%\桌面\2.vbs" echo strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
>>"%userprofile%\桌面\2.vbs" echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\记事本.lnk")
>>"%userprofile%\桌面\2.vbs" echo oShellLink.TargetPath = "C:\WINDOWS\NOTEPAD.EXE"
>>"%userprofile%\桌面\2.vbs" echo oShellLink.WindowStyle = 1
>>"%userprofile%\桌面\2.vbs" echo oShellLink.Hotkey = ""
>>"%userprofile%\桌面\2.vbs" echo oShellLink.IconLocation = "C:\WINDOWS\NOTEPAD.EXE,0"
>>"%userprofile%\桌面\2.vbs" echo oShellLink.Description = ""
>>"%userprofile%\桌面\2.vbs" echo oShellLink.WorkingDirectory = "C:\WINDOWS\"
>>"%userprofile%\桌面\2.vbs" echo oShellLink.Save
call "%userprofile%\桌面\2.vbs"
del/f/q "%userprofile%\桌面\2.vbs"

这是创建记事本的本回答被网友采纳

这次我就不回答了,因为你出现错误的地方与bat无关