把当前目录（包括子目录）中的所有exe文件创建LNK快捷方式到指定目录中

把当前目录（包括子目录）中的所有exe文件创建LNK快捷方式到 "E:\快捷方式" 目录中

快捷方式文件有重名时，后创建的文件覆盖之前创建的文件。

1. @if (0)==(0) echo off
2. set "strLnkDir=E:\快捷方式"
3. md "%strLnkDir%" 2>nul
4. pushd "%~dp0"
5. dir /b /s /a-d *.exe | cscript //nologo //e:jscript "%~f0" "%strLnkDir%"
6. pause & exit
7. @end
9. var strLnkDir = WScript.Arguments(0);
10. var objShell = new ActiveXObject('WScript.Shell');
12. while(!WScript.StdIn.AtEndOfStream){
13.     var strFile = WScript.StdIn.ReadLine();
14.     var strName = strFile.replace(/.+\\(.+)$/i, '$1');
15.     var strLnkName = strLnkDir + '\\' + strName + '.LNK';
16.     try {
17.         var objLnk = objShell.CreateShortCut(strLnkName);
18.         objLnk.TargetPath = strFile;
19.         objLnk.WorkingDirectory = strFile.replace(/(.+)\\.+$/, '$1');
20.         objLnk.Save();
21.         objLnk = null;
22.     } catch(e) {
23.         WScript.Echo(e.message);
24.     }
25. }

代码保存为.bat 双击运行