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

jack2023

求高手写一个bat  要求获取改成通用的软件的根目录，并在后面对这个目录进行相关复制、剪切等操作，如何引用这个获取的目录？
例如：
可以获取某软件（比如QQ）的安装根目录，并在其根目录下面新建1个文件夹123。自己网上整合了1个，发现无法识别目录，求高手指教修改一下哈。

@echo off&cd /d "%~dp0"
:: 获取xxx安装目录
set "reg=HKEY_LOCAL_MACHINE\SOFTWARE\QQ"
:: 获取QQ安装目录
for /f "skip=2 tokens=3,*" %%i in ('reg query %reg% /s') do (
    set destPath=%%i %%j
    :: 验证是否是目录
    echo %%i | findstr : >nul && (
        goto back
    )
)
:back
echo %destPath%
md "%destPath%\123\"

pause
exit
复制代码

比如，从桌面QQ快捷方式获取的文件位置为
    "D:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"
则根目录为   D:\Program Files (x86)\Tencent\QQ\Bin\
然后写代码在这个根目录下面新建1个文件名为123的文件夹。

buyiyang

@echo off
set "scfile=QQ"

for %%i in ("%USERPROFILE%\Desktop\") do set "scp=%%~pi"
if exist %USERPROFILE%\Desktop\*%scfile%*.lnk (
set "scp=%scp:\=\\%"
) else if exist %PUBLIC%\Desktop\*%scfile%*.lnk (
set "scp=\\users\\public\\desktop\\"
) else (echo,%scfile% is nonexistent&pause&exit)
set "scfile=%%%scfile%%%"
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 (
echo,"%%~dpi"
md "%%~dpi123"
)
pause
复制代码

buyiyang

回复 18# jack2023


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

czjt1234

回复 22# terse


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

terse

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

@set @i=0 /* & @echo off&cscript -E:JScript -nologo %0 %* & pause & exit */
var ws = new ActiveXObject("WScript.Shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");
for (var i = 0; i < WSH.Arguments.length; i++)
{
      var ink = ws.CreateShortcut(WSH.Arguments(i));
      var folder = fso.GetParentFolderName(ink.TargetPath);
      var newFolder = fso.BuildPath(folder, "new_folder");
      if (!fso.FolderExists(newFolder)) fso.CreateFolder(newFolder);
}
复制代码

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

这个应该能满足需求

@set @i=0 /* & @echo off&cscript -E:JScript -nologo %0 & pause & exit */
var shell = WScript.CreateObject("WScript.Shell");
var desktopPath = shell.SpecialFolders("Desktop");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var folder = fso.GetFolder(desktopPath);
var files = new Enumerator(folder.Files);
for (; !files.atEnd(); files.moveNext()) {
    var file = files.item();
    if (file.Name.toLowerCase().indexOf(".lnk") == file.Name.length - 4) {
        var ink = shell.CreateShortcut(file.Path);
        var target = ink.TargetPath;
        if (target) {
            var targetfolder = fso.GetParentFolderName(ink.TargetPath);
            WSH.Echo(file.Path, '\n', target, '\n', targetfolder, '\n');
       }
    }
}
复制代码

Batcher

回复 18# jack2023


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

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

jack2023

回复 16# buyiyang

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

jack2023

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

buyiyang

@echo off
set /p scfile=
set scfile=%scfile:\=\\%
set scfile=%scfile:"=%
for /f "tokens=2 delims==" %%i in ('wmic path win32_shortcutfile where "name='%scfile%'" get target /value') do (
echo,"%%~dpi"
md "%%~dpi123"
)
pause
复制代码

jack2023

回复 13# czjt1234

比如，从桌面QQ快捷方式获取的文件位置为
    "D:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"
则根目录为   D:\Program Files (x86)\Tencent\QQ\Bin\
然后写代码在这个根目录下面新建1个文件名为123的文件夹。

jack2023

回复 13# czjt1234

比如，从桌面QQ快捷方式获取的文件位置为
    "D:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"
则根目录为   D:\Program Files (x86)\Tencent\QQ\Bin\
然后写代码在这个根目录下面新建1个文件名为123的文件夹。

czjt1234

"D:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe"
哪个是根目录？
Tencent
Tencent\QQ
Tencent\QQ\Bin

jack2023

回复 11# czjt1234


    可以从桌面快捷方式，大佬能否帮我写个bat,读出快捷方式的根目录，并对在这个根目录下面新建1个123的文件夹。谢谢!