shortcuts批量创建修改快捷键的难题 - 中国DOS联盟论坛

结合批处理，shortcuts可以实现批量创建和修改快捷键，但是在实际中遇到一个问题。那就是如果shortcuts创建或修改快捷键的/P参数或者/W参数或者/I参数中存在带空格的路径，那么创建快捷方式就会失败，而快捷键参数的路径中如果本身存在空格，那么本身就要求使用引号来包括路径，因而产生了冲突。如何解决这个问题呢？如目标为"D:\UGS\NX 6.0\MACH\auxiliary\cls2clf.bat" 参数为"D:\UGS\NX 6.0\" 工作路径为"D:\UGS\NX 6.0\MACH\auxiliary\"，图标为“D:\UGS\NX 6.0\UGTO2D\ugto2d.ico,0”的快捷方式使用shortcuts创建时就会失败。
下面是批处理文件和我的打包的快捷方式，大家测试下如何解决这个问题下面的程序中BS是字符替换工具，替换任意指定的字符。


@ECHO OFF
REM 当改变了文件路径后批量替换(修复)快捷方式.变量LNKPATH为需要替换的快捷方式文件夹的路径;OLDPATH为原始文件安装路径;NEWPATH为新的移动路径
REM 假设安装了CATIA后移动了文件路径或者要制作绿色CATIA,那么快捷方式路径应该做相应变化

SET LNKPATH="%ALLUSERSPROFILE%\「开始」菜单\程序\【HYSOFT】\UGSNX6绿色精简版"
SET OLDPATH="D:\UGS
SET NEWPATH="D:\PROGRAMS PROFILES\UGS"

SET PATH=%CD%;%CD%\GTOOLS\;%PROGRAMFILES%\WINRAR;%PATH%
IF NOT EXIST ".\GTOOLS\BS.exe" SET ERR=安装支持目录下缺少字符替换工具,安装程序无法继续&&GOTO:ERROR
IF NOT EXIST ".\GTOOLS\SC.exe" SET ERR=安装支持目录缺少快捷方式创建工具,安装程序无法继续&&GOTO:ERROR
FOR /F "DELIMS=" %%I IN ('DIR /B/S "%LNKPATH%\*.LNK"') DO (
     SC /F:"%%I" /A:Q>"%TEMP%\SCUT.TXT"
     BS "%TEMP%\SCUT.TXT" %OLDPATH% %NEWPATH% /I>NUL&CLS
     setlocal enabledelayedexpansion
     FOR /F "TOKENS=1,* DELIMS==" %%A IN (%TEMP%\SCUT.TXT) DO CALL SET %%A=%%B
     IF EXIST "!TargetPath!" SC.EXE /F:"%%I" /A:E /T:"!TargetPath!" /P:"!Arguments!" /W:"!WorkingDirectory!" /I:"!IconLocation!" /D:"鸿越软件"
     endlocal
)
SET ERR=替换修复完成,谢谢您使用鸿越软件制作的该工具&&GOTO:ERROR
:ERROR
>"%TEMP%\Temp.vbs"   Echo intAnswer = MsgBox("%ERR%" , vbYes, "鸿越软件温馨提示您!")
cscript //nologo "%TEMP%\Temp.vbs"
EXIT

[ Last edited by HUNRYBECKY on 2008-8-4 at 08:23 AM ]

没有人回答，自己顶一个。

呵呵，高手们今天怎么都潜水了。继续等待。

高手们真会潜水，到现在还没有人光顾。

我自己再顶下，不知道是这个问题太简单还是因为其他原因，居然都没有人回答。。。。

不知道这段VBS是否支持空格，不过从某种情况下偶更宁愿建个.lnk文件直接使用copy的方式释放，用iexpress打包就行了，psexec执行，脚本有时候用起来也烦一堆的ABC

'Create autoshutdown Desktop icon
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("AllUsersDesktop")
Set link = Shell.CreateShortcut(DesktopPath & "\自动关机.lnk")
link.Arguments = "-s -t 0 -f"
link.Description = "自动关闭计算机"
'link.HotKey = "CTRL+ALT+SHIFT+E"
link.IconLocation = "%SystemRoot%\system32\shutdown.exe"
link.TargetPath = "%SystemRoot%\system32\shutdown.exe"
link.WindowStyle = 7
link.WorkingDirectory = "%systemroot%"
link.Save

Const ALL_USERS_DESKTOP = &H19&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ALL_USERS_DESKTOP)

Set objFolderItem = objFolder.ParseName("自动关机.lnk")
Set objShortcut = objFolderItem.GetLink

objShortcut.SetIconLocation "%systemroot%\System32\SHELL32.dll", 27
objShortcut.Save

谢谢 dato，这个VBS脚本也无法实现带参数的特殊路径。
COPY方法是无法实现的我所要求的，因为我是自动根据软件安装的目录自动替换对应路径，因为有些软件要创建一大堆快捷方式，如果我是先使用RAR压缩后自动解包到对应路径，如果释放目录和源安装目录相同，那么就自动跳过，如果不相同，则使用SHORTCUT命令来自动替换对应路径。

试过使用WINRAR打包，也无法建立这种特殊参数的快捷方式。真失望。

问题已经圆满解决，经过在外国网站疯狂搜索，才发现shortcut有一个特别的转移符号\,呵呵，要保留双引号",那么只要在其前面加上\就可以,由于发现有些快捷方式路径后也有一个\符号,如"D:\UGS\",这些可能产生冲突,所以先面的批处理进行了相应处理,避免了这种情况的发生.经过测试,对于带很多复杂参数的快捷键已经可以完全正确处理了.


@ECHO OFF
REM 当改变了文件路径后批量替换(修复)快捷方式.变量LNKPATH为需要替换的快捷方式文件夹的路径;OLDPATH为原始文件安装路径;NEWPATH为新的移动路径
REM 假设安装了CATIA后移动了文件路径或者要制作绿色CATIA,那么快捷方式路径应该做相应变化

SET LNKPATH="D:\UGS\GTOOLS\SCUT"
SET OLDPATH="D:\UGS"
SET NEWPATH="D:\Program Files\UGS"

SET PATH=%CD%;%CD%\GTOOLS\;%PROGRAMFILES%\WINRAR;%PATH%
IF NOT EXIST ".\GTOOLS\BS.exe" SET ERR=安装支持目录下缺少字符替换工具,安装程序无法继续&&GOTO:ERROR
IF NOT EXIST ".\GTOOLS\SC.exe" SET ERR=安装支持目录缺少快捷方式创建工具,安装程序无法继续&&GOTO:ERROR
FOR /F "DELIMS=" %%I IN ('DIR /B/S "%LNKPATH%\*.LNK"') DO (
     SC /F:"%%I" /A:Q>"%TEMP%\SCUT.TXT"
     BS "%TEMP%\SCUT.TXT" %OLDPATH% %NEWPATH% /I
     BS "%TEMP%\SCUT.TXT" """ "\\"" /I>NUL&CLS
     BS "%TEMP%\SCUT.TXT" "\\\\" "\\" /I>NUL&CLS
     setlocal enabledelayedexpansion
     FOR /F "TOKENS=1,* DELIMS==" %%A IN (%TEMP%\SCUT.TXT) DO CALL SET %%A=%%B
     IF DEFINED Arguments IF "!Arguments:~-1!"=="\" (SET Arguments=!Arguments!\)
     IF DEFINED WorkingDirectory IF "!WorkingDirectory:~-1!"=="\" (SET WorkingDirectory=!WorkingDirectory!\) ELSE (SET WorkingDirectory=!WorkingDirectory!\\)
     SC.EXE /F:"%%I" /A:E /T:"!TargetPath!" /P:"!Arguments!" /W:"!WorkingDirectory!" /I:"!IconLocation!" /D:"鸿越软件" >NUL
     endlocal
)
SET ERR=替换修复完成,谢谢您使用鸿越软件制作的该工具&&GOTO:ERROR
:ERROR
>"%TEMP%\Temp.vbs"   Echo intAnswer = MsgBox("%ERR%" , vbYes, "鸿越软件温馨提示您!")
cscript //nologo "%TEMP%\Temp.vbs"
IF EXIST "%TEMP%" DEL /F/S/Q/A "%TEMP%\*.*">NUL
EXIT

第1楼　HUNRYBECKY	发表于 2008-07-31 14:46
银牌会员　发帖 442　积分 1,179
[圆满解决]shortcuts批量创建修改快捷键的难题结合批处理，shortcuts可以实现批量创建和修改快捷键，但是在实际中遇到一个问题。那就是如果shortcuts创建或修改快捷键的/P参数或者/W参数或者/I参数中存在带空格的路径，那么创建快捷方式就会失败，而快捷键参数的路径中如果本身存在空格，那么本身就要求使用引号来包括路径，因而产生了冲突。如何解决这个问题呢？如目标为"D:\UGS\NX 6.0\MACH\auxiliary\cls2clf.bat" 参数为"D:\UGS\NX 6.0\" 工作路径为"D:\UGS\NX 6.0\MACH\auxiliary\"，图标为“D:\UGS\NX 6.0\UGTO2D\ugto2d.ico,0”的快捷方式使用shortcuts创建时就会失败。下面是批处理文件和我的打包的快捷方式，大家测试下如何解决这个问题下面的程序中BS是字符替换工具，替换任意指定的字符。 @ECHO OFF REM 当改变了文件路径后批量替换(修复)快捷方式.变量LNKPATH为需要替换的快捷方式文件夹的路径;OLDPATH为原始文件安装路径;NEWPATH为新的移动路径 REM 假设安装了CATIA后移动了文件路径或者要制作绿色CATIA,那么快捷方式路径应该做相应变化 SET LNKPATH="%ALLUSERSPROFILE%\「开始」菜单\程序\【HYSOFT】\UGSNX6绿色精简版" SET OLDPATH="D:\UGS SET NEWPATH="D:\PROGRAMS PROFILES\UGS" SET PATH=%CD%;%CD%\GTOOLS\;%PROGRAMFILES%\WINRAR;%PATH% IF NOT EXIST ".\GTOOLS\BS.exe" SET ERR=安装支持目录下缺少字符替换工具,安装程序无法继续&&GOTO:ERROR IF NOT EXIST ".\GTOOLS\SC.exe" SET ERR=安装支持目录缺少快捷方式创建工具,安装程序无法继续&&GOTO:ERROR FOR /F "DELIMS=" %%I IN ('DIR /B/S "%LNKPATH%\.LNK"') DO ( SC /F:"%%I" /A:Q>"%TEMP%\SCUT.TXT" BS "%TEMP%\SCUT.TXT" %OLDPATH% %NEWPATH% /I>NUL&CLS setlocal enabledelayedexpansion FOR /F "TOKENS=1, DELIMS==" %%A IN (%TEMP%\SCUT.TXT) DO CALL SET %%A=%%B IF EXIST "!TargetPath!" SC.EXE /F:"%%I" /A:E /T:"!TargetPath!" /P:"!Arguments!" /W:"!WorkingDirectory!" /I:"!IconLocation!" /D:"鸿越软件" endlocal ) SET ERR=替换修复完成,谢谢您使用鸿越软件制作的该工具&&GOTO:ERROR :ERROR >"%TEMP%\Temp.vbs" Echo intAnswer = MsgBox("%ERR%" , vbYes, "鸿越软件温馨提示您!") cscript //nologo "%TEMP%\Temp.vbs" EXIT [ Last edited by HUNRYBECKY on 2008-8-4 at 08:23 AM ] 附件 SCUT.rar (108.6 KiB)

第2楼　HUNRYBECKY	发表于 2008-07-31 15:55
银牌会员　发帖 442　积分 1,179
没有人回答，自己顶一个。

第3楼　HUNRYBECKY	发表于 2008-07-31 16:10
银牌会员　发帖 442　积分 1,179
呵呵，高手们今天怎么都潜水了。继续等待。

第4楼　moniuming	发表于 2008-07-31 16:25
银牌会员　发帖 574　积分 1,335　来自广西
usebackq

第5楼　HUNRYBECKY	发表于 2008-08-01 14:13
银牌会员　发帖 442　积分 1,179
高手们真会潜水，到现在还没有人光顾。

第6楼　HUNRYBECKY	发表于 2008-08-02 12:07
银牌会员　发帖 442　积分 1,179
我自己再顶下，不知道是这个问题太简单还是因为其他原因，居然都没有人回答。。。。

第7楼　dato	发表于 2008-08-02 13:26
高级用户　发帖 377　积分 916
不知道这段VBS是否支持空格，不过从某种情况下偶更宁愿建个.lnk文件直接使用copy的方式释放，用iexpress打包就行了，psexec执行，脚本有时候用起来也烦一堆的ABC 'Create autoshutdown Desktop icon Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("AllUsersDesktop") Set link = Shell.CreateShortcut(DesktopPath & "\自动关机.lnk") link.Arguments = "-s -t 0 -f" link.Description = "自动关闭计算机" 'link.HotKey = "CTRL+ALT+SHIFT+E" link.IconLocation = "%SystemRoot%\system32\shutdown.exe" link.TargetPath = "%SystemRoot%\system32\shutdown.exe" link.WindowStyle = 7 link.WorkingDirectory = "%systemroot%" link.Save Const ALL_USERS_DESKTOP = &H19& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(ALL_USERS_DESKTOP) Set objFolderItem = objFolder.ParseName("自动关机.lnk") Set objShortcut = objFolderItem.GetLink objShortcut.SetIconLocation "%systemroot%\System32\SHELL32.dll", 27 objShortcut.Save

第8楼　HUNRYBECKY	发表于 2008-08-02 14:07
银牌会员　发帖 442　积分 1,179
谢谢 dato，这个VBS脚本也无法实现带参数的特殊路径。 COPY方法是无法实现的我所要求的，因为我是自动根据软件安装的目录自动替换对应路径，因为有些软件要创建一大堆快捷方式，如果我是先使用RAR压缩后自动解包到对应路径，如果释放目录和源安装目录相同，那么就自动跳过，如果不相同，则使用SHORTCUT命令来自动替换对应路径。

第9楼　HUNRYBECKY	发表于 2008-08-02 17:37
银牌会员　发帖 442　积分 1,179
试过使用WINRAR打包，也无法建立这种特殊参数的快捷方式。真失望。

第10楼　HUNRYBECKY	发表于 2008-08-04 08:23
银牌会员　发帖 442　积分 1,179
问题已经圆满解决，经过在外国网站疯狂搜索，才发现shortcut有一个特别的转移符号\,呵呵，要保留双引号",那么只要在其前面加上\就可以,由于发现有些快捷方式路径后也有一个\符号,如"D:\UGS\",这些可能产生冲突,所以先面的批处理进行了相应处理,避免了这种情况的发生.经过测试,对于带很多复杂参数的快捷键已经可以完全正确处理了. @ECHO OFF REM 当改变了文件路径后批量替换(修复)快捷方式.变量LNKPATH为需要替换的快捷方式文件夹的路径;OLDPATH为原始文件安装路径;NEWPATH为新的移动路径 REM 假设安装了CATIA后移动了文件路径或者要制作绿色CATIA,那么快捷方式路径应该做相应变化 SET LNKPATH="D:\UGS\GTOOLS\SCUT" SET OLDPATH="D:\UGS" SET NEWPATH="D:\Program Files\UGS" SET PATH=%CD%;%CD%\GTOOLS\;%PROGRAMFILES%\WINRAR;%PATH% IF NOT EXIST ".\GTOOLS\BS.exe" SET ERR=安装支持目录下缺少字符替换工具,安装程序无法继续&&GOTO:ERROR IF NOT EXIST ".\GTOOLS\SC.exe" SET ERR=安装支持目录缺少快捷方式创建工具,安装程序无法继续&&GOTO:ERROR FOR /F "DELIMS=" %%I IN ('DIR /B/S "%LNKPATH%\.LNK"') DO ( SC /F:"%%I" /A:Q>"%TEMP%\SCUT.TXT" BS "%TEMP%\SCUT.TXT" %OLDPATH% %NEWPATH% /I BS "%TEMP%\SCUT.TXT" """ "\\"" /I>NUL&CLS BS "%TEMP%\SCUT.TXT" "\\\\" "\\" /I>NUL&CLS setlocal enabledelayedexpansion FOR /F "TOKENS=1, DELIMS==" %%A IN (%TEMP%\SCUT.TXT) DO CALL SET %%A=%%B IF DEFINED Arguments IF "!Arguments:~-1!"=="\" (SET Arguments=!Arguments!\) IF DEFINED WorkingDirectory IF "!WorkingDirectory:~-1!"=="\" (SET WorkingDirectory=!WorkingDirectory!\) ELSE (SET WorkingDirectory=!WorkingDirectory!\\) SC.EXE /F:"%%I" /A:E /T:"!TargetPath!" /P:"!Arguments!" /W:"!WorkingDirectory!" /I:"!IconLocation!" /D:"鸿越软件" >NUL endlocal ) SET ERR=替换修复完成,谢谢您使用鸿越软件制作的该工具&&GOTO:ERROR :ERROR >"%TEMP%\Temp.vbs" Echo intAnswer = MsgBox("%ERR%" , vbYes, "鸿越软件温馨提示您!") cscript //nologo "%TEMP%\Temp.vbs" IF EXIST "%TEMP%" DEL /F/S/Q/A "%TEMP%\.">NUL EXIT