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

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

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

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

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