求bat脚本可以获取某软件安装根目录

buyiyang

1. @echo off
   
2. set /p scfile=
   
3. set scfile=%scfile:\=\\%
   
4. set scfile=%scfile:"=%
   
5. for /f "tokens=2 delims==" %%i in ('wmic path win32_shortcutfile where "name='%scfile%'" get target /value') do (
   
6. echo,"%%~dpi"
   
7. md "%%~dpi123"
   
8. )
   
9. pause

复制代码

jack2023

好像不行呢  大佬 看下哪里填错了

jack2023

回复 16# buyiyang

好像不行呢  大佬 看下哪里填错了

Batcher

回复 18# jack2023


建议以后不要再说“不行”、“一闪而过”、“没有反应”之类的话，因为这对于想要给你进一步帮助的人来说没有任何意义。希望大家都能学会的一个知识点是：如何查看代码的报错信息。

如果你在执行.bat脚本，请参考Q-01观察一下哪行代码在报错以及详细的报错信息：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

terse

这个应该能满足需求

1. @set @i=0 /* & @echo off&cscript -E:JScript -nologo %0 & pause & exit */
   
2. var shell = WScript.CreateObject("WScript.Shell");
   
3. var desktopPath = shell.SpecialFolders("Desktop");
   
4. var fso = new ActiveXObject("Scripting.FileSystemObject");
   
5. var folder = fso.GetFolder(desktopPath);
   
6. var files = new Enumerator(folder.Files);
   
7. for (; !files.atEnd(); files.moveNext()) {
   
8.     var file = files.item();
   
9.     if (file.Name.toLowerCase().indexOf(".lnk") == file.Name.length - 4) {
   
10.         var ink = shell.CreateShortcut(file.Path);
    
11.         var target = ink.TargetPath;
    
12.         if (target) {
    
13.             var targetfolder = fso.GetParentFolderName(ink.TargetPath);
    
14.             WSH.Echo(file.Path, '\n', target, '\n', targetfolder, '\n');
    
15.        }
    
16.     }
    
17. }

复制代码

jack2023

回复 20# terse


    谢谢大佬，这个可以读取桌面的所有快捷方式的名称及路径，我的意思是需要某一个自定义的快捷方式，
比如：搜狗高速浏览器
C:\Users\Administrator\Desktop\搜狗高速浏览器.lnk
D:\Program Files\sougou\SogouExplorer\SogouExplorer.exe
D:\Program Files\sougou\SogouExplorer
比如我需要读取这个的   搜狗高速浏览器.lnk的根目录为 D:\Program Files\sougou\SogouExplorer
并在根目录下面新建1个123的文件夹



麻烦帮忙完善一下代码，谢谢

terse

回复 21# jack2023
把快捷方式图标拖进去处理

1. @set @i=0 /* & @echo off&cscript -E:JScript -nologo %0 %* & pause & exit */
   
2. var ws = new ActiveXObject("WScript.Shell");
   
3. var fso = new ActiveXObject("Scripting.FileSystemObject");
   
4. for (var i = 0; i < WSH.Arguments.length; i++)
   
5. {
   
6.       var ink = ws.CreateShortcut(WSH.Arguments(i));
   
7.       var folder = fso.GetParentFolderName(ink.TargetPath);
   
8.       var newFolder = fso.BuildPath(folder, "new_folder");
   
9.       if (!fso.FolderExists(newFolder)) fso.CreateFolder(newFolder);
   
10. }
    
11. 
    

复制代码

czjt1234

回复 22# terse


    估计是要改成支持拖放的比较方便

buyiyang

回复 18# jack2023


    双击执行，拖动快捷方式到窗口，回车。

buyiyang

1. @echo off
   
2. set "scfile=QQ"
   
3. 
   
4. for %%i in ("%USERPROFILE%\Desktop") do set "scp=%%~pi"
   
5. if exist %USERPROFILE%\Desktop\*%scfile%*.lnk (
   
6. set "scp=%scp:\=\\%"
   
7. ) else if exist %PUBLIC%\Desktop\*%scfile%*.lnk (
   
8. set "scp=\\users\\public\\desktop\"
   
9. ) else (echo,%scfile% is nonexistent&pause&exit)
   
10. set "scfile=%%%scfile%%%"
    
11. for /f "tokens=2 delims==" %%i in ('wmic path win32_shortcutfile where "Path='%scp%' and extension='LNK' and FileName like '%scfile%'" get target /value') do (
    
12. echo,"%%~dpi"
    
13. md "%%~dpi123"
    
14. )
    
15. pause

复制代码