本帖最后由 yyz219 于 2022-12-10 13:27 编辑
问题完美解决了:- ::【支持:按这里排序.txt————里面有(空格、空行)】
- @echo off
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo.
- echo 排序吗?大概需要15秒哟
- pause>nul
- start "" "%appData%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\显示桌面.lnk" %【转到桌面】%
- ::【删除 “按这里排序.txt” 里首尾空格、空行(保存为:“按这里排序.txt”)】
- (for /f "tokens=*" %%a in (按这里排序.txt) do @echo %%~nxa)>b.txt&move /y b.txt 按这里排序.txt
- for /R %%i in (按这里排序.txt) do @findstr . "%%i">new.txt&move /y new.txt "%%i" & del "%~dp0来自“常用”lnk文件\*.txt"
-
- ::【移动:"D:\常用\*.lnk" →→→ 本目录\来自“常用”lnk文件\】
- move "D:\常用\*.lnk" "%~dp0来自“常用”lnk文件\" & 延时1秒.vbs
-
- ::【复制:按照(按这里排序.txt)顺序逐行复制.lnk →→→ "D:\常用\"(两个复制间隔1秒)】
- for /f "tokens=*" %%a in (按这里排序.txt) do (setlocal enabledelayedexpansion
- set "name=%%a"
- copy "%~dp0来自“常用”lnk文件\!name!.lnk" "D:\常用\"
- endlocal
- 延时1秒.vbs)
- exit
复制代码 ******************************************************************************************************************
原来的问题:
求批处理:按00.txt里面内容逐行复制.lnk(两个复制隔1秒)(即:每复制一个文件后,等待1秒,再复制下一个)文件到指定文件夹
目标文件夹:D:\常用
00.txt内容类似(是lnk文件列表,名字有可能有空格):
替换还原
整理碎片
菜单排序
个人文件
更新数据
搜索文件
刷新+.vbs
谢谢 |