该问题我不是回答过你了吗?怎么还问?谢谢,请及时采纳,不要做被人鄙视的伸手党。
:On Error Resume Next
Sub bat
echo off
echo '>nul & set Dir=X:\1\2\3
echo '>nul & for %%a in ("%Dir%") do set "LnkName=%%~nxa"
echo '>nul & start wscript -e:vbs "%~f0" "%Dir%" "%LnkName%"
Exit Sub
End Sub
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop + "\" + WScript.Arguments(1) + ".lnk")
oShellLink.TargetPath = WScript.Arguments(0)
oShellLink.Save
泄气涂房w