我的代码如下:- @echo off
- mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""AllUsersDesktop"") & ""\后处理构造器.lnk""):b.TargetPath=""%cd%\NX 8.5\POSTBUILD\post_builder.bat"":b.Arguments=""%cd%\NX 8.5"":b.IconLocation=""%cd%\NX 8.5\POSTBUILD\post_builder.ico"":b.WorkingDirectory=""%cd%\NX 8.5\POSTBUILD\"":b.Save:close") >nul
复制代码
|