这个代码效果更好一点,虽然我看不懂- set SrcFile=e:\123.exe
- set LnkFile=%userprofile%\desktop\123
- call :CreateShort "%SrcFile%" "%LnkFile%"
- goto :eof
-
- :CreateShort
- mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%~dp1"":b.Save:close")
复制代码
|