@echo off
setlocal EnableDelayedExpansion
for /f delims=: tokens=1,* %%a in (1.txt) do (
set SrcFile=C:Program FilesGoogleChromeApplicationchrome.exe
set Args= ---profile-directory=%%a
set LnkFile=%%a.lnk
call :CreateShort !SrcFile! !Args! !LnkFile!
pause & goto :eof
::Arguments目標(biāo)程序參數(shù)
::Description快捷方式備注
::FullName 返回快捷方式完整路徑
::Hotkey 快捷方式快捷鍵
::IconLocation 快捷方式圖標(biāo)，不設(shè)則使用默認圖標(biāo)
::TargetPath 目標(biāo)
::WindowStyle窗口啟動狀態(tài)
::WorkingDirectory 起始位置
:CreateShort
mshta VBscript:Execute(Set a=CreateObject(Wscript.Shell):Set b=a.CreateShortcut(a.SpecialFolders(DeskTop) & %~3):b.TargetPath=%~1:b.WorkingDirectory=%~dp1:b.Arguments=%~2:b.Save:close)
)
nclick="copycode($('code0'));">復(fù)制代碼