@echo off&title cjl by 64721168
echo 正在创建所有游戏的快捷方式,请稍等
:choice
cls
for /f "delims=: tokens=*" %%i in (lnk.txt) do (
set path=%%~dpi
set file=%%~nxi
call :lnk
)
:lnk
(echo Set WshShell = WScript.CreateObject^("WScript.Shell"^)
echo strDesktop = WshShell.SpecialFolders^("Desktop"^) :'特殊文件夹“桌面”
echo.
echo set oShellLink = WshShell.CreateShortcut^(strDesktop ^& "\%file%.lnk"^)
echo oShellLink.TargetPath = "%path%\%file%" : '目标
echo oShellLink.WindowStyle = 1 :'参数1默认窗口激活,参数3最大化激活,参数7最小化
echo oShellLink.Hotkey = "" : '快捷键
echo oShellLink.IconLocation = "%path%\%file%, 0" : '图标
echo oShellLink.Description = "" : '备注
echo oShellLink.WorkingDirectory = "%path%\%file%" : '起始位置
echo oShellLink.Save : '创建保存快捷方式) >bb.vbs
bb.vbs
goto :eof
这个是能够收集,但还需要手动修改LNK.TXT文件内路径,有新的还要添加,很麻烦,望哪位高手帮忙修改到完全智能搜集。
echo 正在创建所有游戏的快捷方式,请稍等
:choice
cls
for /f "delims=: tokens=*" %%i in (lnk.txt) do (
set path=%%~dpi
set file=%%~nxi
call :lnk
)
:lnk
(echo Set WshShell = WScript.CreateObject^("WScript.Shell"^)
echo strDesktop = WshShell.SpecialFolders^("Desktop"^) :'特殊文件夹“桌面”
echo.
echo set oShellLink = WshShell.CreateShortcut^(strDesktop ^& "\%file%.lnk"^)
echo oShellLink.TargetPath = "%path%\%file%" : '目标
echo oShellLink.WindowStyle = 1 :'参数1默认窗口激活,参数3最大化激活,参数7最小化
echo oShellLink.Hotkey = "" : '快捷键
echo oShellLink.IconLocation = "%path%\%file%, 0" : '图标
echo oShellLink.Description = "" : '备注
echo oShellLink.WorkingDirectory = "%path%\%file%" : '起始位置
echo oShellLink.Save : '创建保存快捷方式) >bb.vbs
bb.vbs
goto :eof
这个是能够收集,但还需要手动修改LNK.TXT文件内路径,有新的还要添加,很麻烦,望哪位高手帮忙修改到完全智能搜集。
