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

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