无忧启动论坛

标题: 分享：文件(夹)固定到任务栏-拖（PE 可用）（有更新） [打印本页]

作者: yyz2191958 时间: 2025-3-19 07:40
标题: 分享：文件(夹)固定到任务栏-拖（PE 可用）（有更新）
本帖最后由 yyz2191958 于 2025-3-20 12:32 编辑

分享：文件（夹）固定到任务栏-拖（10 PE上测试成功，其它没有测试）（需要能够运行 vbs 的环境）
=============================================================
添加到任务栏（拖）（最新，快捷方式也支持）.rar:

适用范围：所有文件、文件夹（包括快捷方式）
使用方法：将文件（夹）（快捷方式也一样）拖到 “添加到任务栏（拖）.bat”图标上
==================================================

原理：
1.在快捷方式的 “目标” 的最前面添加 “explorer.exe ”（用vbs修改————得到了 “批处理之家”  的 “yakeyun” 帮助）
2.用 “Pecmd.exe” 命令固定到任务栏
3.修改快捷方式为正常（即：快捷方式的 “目标” 的最前面不再有 “explorer.exe ”）
=================================================
代码：
@echo off
::【双击退出，拖运行】
if "%~1"=="" exit /b 3
"%~dp0隐藏批处理窗口.exe" @ /HID
::【检测“TaskBar”里面，有无 “文件名.lnk” 文件（有向下（退出），无到 :A）】
cd /d "%appData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\" >nul 2>nul
if not exist "%~n1.lnk" goto :A
exit
::==============================================================================================
:A
::【检测（被拖文件是否.lnk）（是跳到:S，否跳到:T）】
echo %~1 |findstr /rec:".lnk *"&&goto :S||goto :T
::▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆【下面是对（.lnk）的代码】▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆
:S
RD /S /Q "%~dp0lnk文件" >nul 2>nul &MD "%~dp0lnk文件\" &xcopy /y  %1 "%~dp0lnk文件\" >nul 2>nul
::==============================================================================================
::【获取:lnk指向目标】
>"%tmp%\t.t" echo;WSH.echo CreateObject("WScript.Shell").CreateShortcut(WSH.Arguments(0)).targetpath & for /f "delims=" %%a in ('cscript -nologo -e:vbscript "%tmp%\t.t" "%~1"') do set "lnk指向目标=%%a"
set "lnk路径=%~1"
::==============================================================================================
::【添加：在快捷方式的目标最前面，添加 “explorer.exe ”】
>"lnk（含explorer.exe）.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"lnk（含explorer.exe）.vbs" echo strShortcutPath = "%lnk路径%" '快捷方式的路径
>>"lnk（含explorer.exe）.vbs" echo Set oShellLink = WshShell.CreateShortcut(strShortcutPath)
>>"lnk（含explorer.exe）.vbs" echo oShellLink.TargetPath = "%SystemRoot%\explorer.exe"
>>"lnk（含explorer.exe）.vbs" echo oShellLink.Arguments = "%lnk指向目标%" '文件夹路径
>>"lnk（含explorer.exe）.vbs" echo oShellLink.Save '保存
lnk（含explorer.exe）.vbs
::==============================================================================================
::【固定在任务栏】
"%~dp0Pecmd.exe" PINT "%lnk路径%",TaskBand
::==============================================================================================
::【修改：（TaskBar目录、原来目录）里面的快捷方式为正常】
copy /y "%~dp0lnk文件\*.*" "%appData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\"
copy /y "%~dp0lnk文件\*.lnk"  "%~dp1"
::==============================================================================================
::【删除无用文件（文件夹）】
RD /S /Q "%~dp0lnk文件\" & del lnk（含explorer.exe）.vbs
::==============================================================================================
::【刷新】
ASSOC .tmp=tmpfile
exit
::▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆【下面是对（文件夹和文件）的代码】▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆▆
:T
"%~dp0创建快捷方式.exe" /f:"%~dp1%~n1.lnk" /a:c /t:%1
::==============================================================================================
set "lnk路径=%~dp1%~n1.lnk"
set "文件夹路径=%~1"
::【添加：在快捷方式的目标最前面，添加 “explorer.exe ”】
>"lnk（含explorer.exe）.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"lnk（含explorer.exe）.vbs" echo strShortcutPath = "%lnk路径%" '快捷方式的路径
>>"lnk（含explorer.exe）.vbs" echo Set oShellLink = WshShell.CreateShortcut(strShortcutPath)
>>"lnk（含explorer.exe）.vbs" echo oShellLink.TargetPath = "%SystemRoot%\explorer.exe"
>>"lnk（含explorer.exe）.vbs" echo oShellLink.Arguments = "%文件夹路径%" '文件夹路径
>>"lnk（含explorer.exe）.vbs" echo oShellLink.Save '保存
lnk（含explorer.exe）.vbs
::==============================================================================================
::【固定在任务栏】
"%~dp0Pecmd.exe" PINT "%~dp1%~n1.lnk",TaskBand
::【删除无用文件（文件夹）】
del lnk（含explorer.exe）.vbs "%~dp1%~n1.lnk"
::【修改：TaskBar里面的快捷方式为正常的】
"%~dp0创建快捷方式.exe" /f:"%appData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\%~n1.lnk" /a:c /t:%1
::【刷新】
ASSOC .tmp=tmpfile
exit

文件夹固定到任务栏-拖.rar

978.94 KB, 下载次数: 103, 下载积分: 无忧币 -2

文件夹固定到任务栏-拖（修正版）.rar

979.02 KB, 下载次数: 17, 下载积分: 无忧币 -2

文件（夹）固定到任务栏-拖【快捷方式以外的文件（夹）适用】.rar

978.73 KB, 下载次数: 14, 下载积分: 无忧币 -2

添加到任务栏（拖）（最新，快捷方式也支持）.rar

979.76 KB, 下载次数: 11, 下载积分: 无忧币 -2

作者: 花盗睡鼠 时间: 2025-3-19 07:49
感谢楼主分享

作者: woy8 时间: 2025-3-19 07:51
好工具，感谢分享和交流

作者: cysky 时间: 2025-3-19 08:25
收藏一下回来试试谢谢了

作者: QiQ 时间: 2025-3-19 08:25
感谢楼主分享

作者: tanglf 时间: 2025-3-19 08:39
谢谢分享

作者: 小灰兔 时间: 2025-3-19 08:43
谢谢分享

作者: yzw92 时间: 2025-3-19 08:48
感谢楼主分享

作者: yc2428 时间: 2025-3-19 08:49

感谢分享！

作者: wang1126 时间: 2025-3-19 08:51
谢谢楼主分享

作者: sulong 时间: 2025-3-19 08:56
这个不错，试试看

作者: doglove 时间: 2025-3-19 09:05
好办法，但是win10x64 1903不成功。

作者: Erpf 时间: 2025-3-19 09:15
好办法

作者: 兮哩糊涂 时间: 2025-3-19 09:21
这个可以试一试谢谢！

作者: wn168cn@163.com 时间: 2025-3-19 09:23
感谢分享

作者: 86933924 时间: 2025-3-19 09:37
好东西谢谢分享

作者: 风雷印 时间: 2025-3-19 09:56
这个可以，感谢分享

作者: 1e3e 时间: 2025-3-19 10:23
感谢分享

作者: xu84821 时间: 2025-3-19 10:25
这个不错，试试看

作者: 兮兮曦 时间: 2025-3-19 10:35
多谢楼主分享

作者: 清水谷龙华 时间: 2025-3-19 10:50
谢谢分享

作者: afti 时间: 2025-3-19 11:45
感谢楼主分享

作者: shiqiang 时间: 2025-3-19 11:58
感谢分享，下载试用。

作者: cb6556 时间: 2025-3-19 12:01

感谢分享，下载试用。

作者: wfg1555 时间: 2025-3-19 12:09
都拖进任务栏方便，一眼全部

作者: y迎旭 时间: 2025-3-19 12:42
感谢分享！

作者: zyy 时间: 2025-3-19 12:47
谢谢分享，测试 Win11PE 系统有效

作者: 进士小站 时间: 2025-3-19 12:58
谢谢楼主分享
试试常用文件夹

作者: hmaaaa 时间: 2025-3-19 13:25
謝謝大大分享，感恩喔~~! ^^ 辛苦了！

作者: guong 时间: 2025-3-19 13:42
感谢楼主分享

作者: 进士小站 时间: 2025-3-19 13:49
本帖最后由进士小站于 2025-3-19 13:51 编辑

“固定文件夹到任务栏小技巧：
1️⃣ 在桌面右键点击，选择“新建”。
2️⃣ 点击“快捷方式”。
3️⃣ 点击“浏览”，找到你需要的文件夹。如果是E盘，直接点击E盘即可。
4️⃣ 在路径前输入“explorer”，注意后面要留一个空格哦！
5️⃣ 在横线上输入你想要的文件夹名字。
6️⃣ 点击“完成”，然后在桌面上找到这个文件夹。
7️⃣ 右键点击这个文件夹，选择“固定到任务栏”。”
以上是本人在网上搜到的，亲测可用。
Windows 10 系统，桌面上的快捷方式可删除。

作者: zgyjp 时间: 2025-3-19 13:55

多谢楼主分享

作者: dksoft 时间: 2025-3-19 14:27
感谢分享

作者: fegr 时间: 2025-3-19 15:11
谢谢分享

作者: it323 时间: 2025-3-20 07:41
感谢分享！

作者: omy2000 时间: 2025-3-20 12:52
牛逼

作者: 86933924 时间: 2025-3-23 15:43
谢谢分享

作者: cxgkings 时间: 2025-3-23 16:36
感谢大佬分享

欢迎光临无忧启动论坛 (http://bbs.c3.wuyou.net/)