[已解决]创建快捷方式的批处理总是提示缺少括号的原因是什么？

lzf_voip

不知道是不是转义字符用的不当的原因，改来改去不是这里缺少 ')’，就是那里缺少 ')’，麻烦哪位大神帮我测试一下问题在哪，多谢！

批处理如下：

1. @echo off & setlocal enabledelayedexpansion
   
2. 
   
3. set "arg=-extoff"
   
4. set "NewWorkingDirectory=D:\Program Files"
   
5. 
   
6. for /f "tokens=1* delims=:"  %%a in ('more +9 %0') do (
   
7. 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"^)
   
8. )
   
9. exit
   
10. ::"D:\Program Files\abc.lnk"

复制代码

apang

除最后一个转义字符外，其它转义字符通通删掉

lzf_voip

回复 2# apang


  谢谢，我刚才研究出来的结果证明了你的建议完全正确。

ygqiang

不知道是不是转义字符用的不当的原因，改来改去不是这里缺少 ')’，就是那里缺少 ')’，麻烦哪位大神帮我测 ...
lzf_voip 发表于 2015-5-18 09:40

1. del /q "C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"
   
2. 
   
3. rem 创建exe文件的lnk快捷方式
   
4. ::指定路径和名称
   
5. set "LnkFile=C:\ProgramData\Microsoft\Windows\Start Menu\Programs\accessories\注销.lnk"
   
6. set "LnkFile1=%userprofile%\「开始」菜单\注销.lnk"
   
7. ::指定主程序
   
8. set "TargetPath=%SystemRoot%\system32\logoff.exe"
   
9. ::指定起始位置
   
10. set "WorkingDirectory=%SystemRoot%\system32"
    
11. ::指定快捷键
    
12. set "Hotkey=Ctrl+Shift+L"
    
13. ::指定图标
    
14. set "IconLocation=%windir%\system32\shell32.dll,44"
    
15. 
    
16. del "%LnkFile%" /f /q >nul 2>nul
    
17. 
    
18. call :CreateShort "%LnkFile%" "%TargetPath%" "%WorkingDirectory%" "%HotKey%" "%IconLocation%"
    
19. call :CreateShort "%LnkFile1%" "%TargetPath%" "%WorkingDirectory%" "%HotKey%" "%IconLocation%"
    
20. 
    
21. ::Arguments              目标程序参数
    
22. ::Description            快捷方式备注
    
23. ::FullName               返回快捷方式完整路径
    
24. ::Hotkey                 快捷方式快捷键
    
25. ::IconLocation           快捷方式图标，不设则使用默认图标
    
26. ::TargetPath             目标
    
27. ::WindowStyle            窗口启动状态
    
28. ::WorkingDirectory       起始位置
    
29. :CreateShort
    
30. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~1""):b.TargetPath=""%~2"":b.WorkingDirectory=""%~3"":b.HotKey=""%~4"":b.IconLocation=""%~5"":b.Save:close")

复制代码