@echo off
rem Указываем кодировку консоли
::chcp 1251
chcp 65001
setlocal
rem Укажите путь к папке с ярлыками
set "shortcut_folder=C:\KWORK\Labels"
set "output_file=C:\KWORK\Labels\file_paths.txt"
rem Удаляем файл, если он существует
if exist "%output_file%" del "%output_file%"
rem Перебираем все ярлыки в указанной папке
for %%f in ("%shortcut_folder%\*.lnk") do (
rem Используем WScript для получения пути
for /f "delims=" %%i in ('cscript //nologo "%~dp0GetShortcutTarget.vbs" "%%f"') do (
echo %%i >> "%output_file%"
)
)
echo Путь к файлам скопирован в "%output_file%"
endlocal
获取快捷方式目标.vbs:
Set objShell = CreateObject("WScript.Shell")
Set objShortcut = objShell.CreateShortcut(WScript.Arguments(0))
WScript.Echo objShortcut.TargetPath
.bat
和.vbs
批处理lnk文件.bat:
获取快捷方式目标.vbs:
启动批处理文件:
结果: