VBS如何把当前目录中的EXE程序批量创建快捷方式到指定文件夹？

WHY

这样试试

1. Dim fso, objShell, strDesktop, strCurrentDir
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. Set objShell = CreateObject("WScript.Shell")
   
4. strDesktop = objShell.SpecialFolders("Desktop")
   
5. strCurrentDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "")-1)
   
6. 
   
7. Dim objFile, strName, strLnkName, objLnk
   
8. For Each objFile In fso.GetFolder(strCurrentDir).Files
   
9.     IF LCase(Right(objFile.Path, 4)) = ".exe" Then
   
10.         strName = fso.GetBaseName(objFile.Path)
    
11.         strLnkName = strDesktop & "" & strName & ".lnk"
    
12.         Set objLnk = objShell.CreateShortcut(strLnkName)
    
13.         objLnk.TargetPath = objFile.Path
    
14.         objLnk.WorkingDirectory = strCurrentDir
    
15.         objLnk.Save
    
16.     End If
    
17. Next

复制代码

nevergiveup520

回复 45# pcl_test


    不是  ，我是在桌面，那个路径是对的

nevergiveup520

回复 46# WHY


    你给的代码，运行不了啊  ，不管是否有管理员权限运行都是一闪而过啊

WHY

那这样呢？
保存为Test.bat，把Test.bat与你的exe文件放在同一文件夹下

1. @if (0)==(0) echo off
   
2. pushd "%~dp0"
   
3. dir /b /a-d *.exe | cscript //nologo //e:jscript "%~f0" "%~dp0"
   
4. pause & exit
   
5. @end
   
6. 
   
7. var strCurrentDir = WScript.Arguments(0);
   
8. var objShell = new ActiveXObject('WScript.Shell');
   
9. var strDesktop = objShell.SpecialFolders('Desktop');
   
10. 
    
11. while(!WScript.StdIn.AtEndOfStream){
    
12.     var strFile = WScript.StdIn.ReadLine();
    
13.     var strName = strFile.replace(/(.+)\.exe$/i, '$1');
    
14.     var strLnkName = strDesktop + '\\' + strName + '.LNK';
    
15.     var objLnk = objShell.CreateShortcut(strLnkName);
    
16.     objLnk.TargetPath = strCurrentDir + '\\' + strFile;
    
17.     objLnk.WorkingDirectory = strCurrentDir;
    
18.     objLnk.Save();
    
19. }

复制代码

pcl_test

回复 47# nevergiveup520

你在H:\lvse_ruanjian运行40楼的代码能显示正确的exe路径？

nevergiveup520

回复 50# pcl_test

  40楼代码运行后的结果。没有用管理员权限运行就可以得到！

nevergiveup520

回复 43# pcl_test


   桌面文件夹里确实有exe程序，但是运行那代码  不是我想要的结果

nevergiveup520

那这样呢？
保存为Test.bat，把Test.bat与你的exe文件放在同一文件夹下
WHY 发表于 2016-1-5 21:04

    你给这个代码运行正常，可是我的软件并不是在同一个目录下的，有些便捷绿化软件还有很多子目录，我就把好多绿色软件的文件夹放在一个文件里，而我需要把这些文件夹里的exe程序创建快捷方式到我指定的文件夹里如下图：还得劳请你帮我再修改下！谢谢啦！

WHY

把当前目录（包括子目录）中的所有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
   
8. 
   
9. var strLnkDir = WScript.Arguments(0);
   
10. var objShell = new ActiveXObject('WScript.Shell');
    
11. 
    
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. }

复制代码

nevergiveup520

回复 54# WHY

再次感谢各位大神的帮助，特别是WHY大神及版主pcl_test 这两天的耐心帮助解答，再次感谢两位，谢谢！！！！
   
若是这段代码里面再加入可以自动判断只创建可以独立运行的程序的图标就更完美了，欢迎各路大神前来PK！！

PS: 这代码其实已经够我使用了，再次感谢他们！谢谢！！@WHY ，@pcl_test