文件批量檢索復制

[復制鏈接]

youhun200

電梯直達

1^#

發表于 2023-12-28 11:51:23 | 只看該作者 |倒序瀏覽 |閱讀模式

本帖最后由 youhun200 于 2023-12-28 11:53 編輯

這個小程序是根據自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統的執行代碼）就當是一種娛樂吧

@echo off
title  文件批量檢索復制
color  1e
:stad
if  not  exist  list.txt  goto  exd
cls
@echo.
set/p    ph=    ● 輸入創建文件夾的名稱或已有文件夾名（空輸入無效）:
if  "%ph%"==""  goto stad
if  exist  "%ph%"  goto menu
md  "%ph%"
:menu
cls
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表，保存并回車，單擊確定",64,"提示")(window.close)
list.txt
findstr /rc:"." /rc:" " list.txt||  goto  ens
cls
@echo.
@echo    回車繼續......
pause >nul
cls
@echo.
@echo                正在搜索文件，稍候......
for /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
cls
@echo.
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
lise.txt
@echo.
@echo    回車繼續......
pause >nul
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  erx
cls
for /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
cls
@echo.
set cnt=0
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
)
if defined cnt (set inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
del/q lise.txt  >nul
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close)
explorer.exe %ph%
exit
:exd
cls
@echo.          >list.txt
cls
mshta vbscript:msgbox("【list.txt】文本已創建,單擊確定，繼續操作.",64,"提示")(window.close)
cls
goto stad
:ens
cls
mshta vbscript:msgbox("文本不能為空,單擊確定，繼續操作. ",16,"錯誤提示")(window.close)
if  not  exist  list.txt  goto exd
goto menu
:err
cls
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
:erx
cls
del/q lise.txt  >nul
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd