level 1
fhhfnn☜
楼主
不知道是不是转义字符用的不当的原因,改来改去不是这里缺少 ')’,就是那里缺少 ')’,麻烦哪位大神帮我测试一下问题在哪,多谢!
批处理如下:
@echo off & setlocal enabledelayedexpansion
set "arg=-extoff"
set "NewWorkingDirectory=D:\Program Files\"
for /f "tokens=1* delims=:" %%a in ('more +9 %0') do (
if exist "%%a:%%b" mshta VBScript:Execute^("Set a=CreateObject^(""WScript.Shell""^):Set b=a.CreateShortcut^(""%%a:%%b""^):b.Arguments=^(""%arg%""^):b.WorkingDirectory=^(""%NewWorkingDirectory%""^):b.Save:close"^)
)
exit
::"D:\Program Files\abc.lnk"
2015年05月18日 01点05分
1
批处理如下:
@echo off & setlocal enabledelayedexpansion
set "arg=-extoff"
set "NewWorkingDirectory=D:\Program Files\"
for /f "tokens=1* delims=:" %%a in ('more +9 %0') do (
if exist "%%a:%%b" mshta VBScript:Execute^("Set a=CreateObject^(""WScript.Shell""^):Set b=a.CreateShortcut^(""%%a:%%b""^):b.Arguments=^(""%arg%""^):b.WorkingDirectory=^(""%NewWorkingDirectory%""^):b.Save:close"^)
)
exit
::"D:\Program Files\abc.lnk"