Question

如何用vbs创建快捷方式到当前目录

麻烦大神帮修改一下，把快捷方式放在vba所在的文件夹，谢谢了
On Error Resume Next '忽略错误继续往下执行
Set doLNK = WScript.CreateObject("WScript.Shell")
DeskPath = doLNK.SpecialFolders("Desktop")
CurrPath = doLNK.CurrentDirectory
set oShellLink = doLNK.CreateShortcut(DeskPath & "\SolidWorks.lnk") '快捷方式名称
oShellLink.TargetPath = CurrPath & "\SolidWorks\SLDWORKS.exe" '设置快捷方式的执行路径
oShellLink.Save

Answer 1

DeskPath = doLNK.SpecialFolders("Desktop")
' 修改为：
DeskPath=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)-1)