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

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

jack2023

回复 16# buyiyang

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

Batcher

回复 18# jack2023


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

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

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');
       }
    }
}
复制代码

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
把快捷方式图标拖进去处理

@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);
}
复制代码

czjt1234

回复 22# terse


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

buyiyang

回复 18# jack2023


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

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
复制代码