文件批量檢索復制

youhun200

& ?, B' i5 G- }8 q+ c2 n1 Q
這個小程序是根據自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統的執行代碼）就當是一種娛樂吧
) o& n8 H, ?8 Y# ]" _# e5 i. B@echo off
) S0 G' y' x# etitle  文件批量檢索復制
color  1e
:stad
0 v- W8 p' t/ q2 Cif  not  exist  list.txt  goto  exd
cls
@echo.
5 y( R# d/ Z! o5 O- c$ sset/p       ph=       ● 輸入創建文件夾的名稱或已有文件夾名（空輸入無效）:
, u; ^0 b$ ^0 g8 G5 U' Bif  "%ph%"==""  goto stad
if  exist  "%ph%"  goto menu
9 `7 P* g* g1 g! [6 l, m& dmd  "%ph%"
:menu
; ~3 `8 ~$ U# u' \4 Q( Q9 K0 [+ hcls
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車，單擊確定",64,"提示")(window.close)
1 a2 l! W" |/ v, S4 Dlist.txt
findstr /rc:"." /rc:" " list.txt||  goto  ens
cls
$ s/ [: i, ^/ X' y, T4 F@echo.
/ l  V: r& o4 G3 `& G1 B8 N@echo      回車繼續......
pause >nul
cls
& ?4 }; L- c6 E# y@echo.
@echo                  正在搜索文件，稍候......
7 W$ Z( y7 Q$ R) jfor /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
0 V# A! a# \0 y: P/ _" J' }4 G: ucls
@echo.
& k) W% i) `% i3 \, Z9 pcls
findstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
% w4 ?: G% B7 v1 R& l" hmshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
& ~  }- l1 C& I; ]5 C- |5 rlise.txt
@echo.
6 ^( |  D' B' x+ _9 V3 A# z@echo      回車繼續......
3 X1 X: R; Q4 j) ~& Fpause >nul
cls
3 P  C; J" p$ U  c( Q& f5 Lfindstr /rc:"." /rc:" "  lise.txt||  goto  erx
cls
2 p/ R/ j/ l# Qfor /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
% v- F1 t8 r( ], ]' wcls
+ s* O6 I( }$ d1 U@echo.
set cnt=0
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
)
/ l, U' x4 P2 |) sif 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%
4 u6 L/ ^# f8 z6 wexit
:exd
5 y2 e2 Y* t2 q" B- Ccls
1 r' t/ B! Y/ b' G; T* e; Y, O@echo.           >list.txt
$ U4 B4 k% l! C5 g$ \1 d& Ecls
mshta vbscript:msgbox("【list.txt】文本已創建,單擊確定，繼續操作.",64,"提示")(window.close)
, g6 t" S0 \8 m! W6 ucls
goto stad
:ens
* y/ q5 p) g4 p- u' a5 u6 C, Z: gcls
mshta vbscript:msgbox("文本不能為空,單擊確定，繼續操作. ",16,"錯誤提示")(window.close)
if  not  exist  list.txt  goto exd
3 h- _4 @. W9 f$ P; Q" ]3 N% Tgoto menu
* o7 |2 D2 h9 c:err
cls
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
7 H& z: p5 R' q8 E% N# g4 v:erx
cls
) N% a. X* a6 u# T4 x' Zdel/q   lise.txt  >nul
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
' \* V% }- i! S1 F! |exit
差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd

/ C: f3 Q6 F* \" q& k' U

siralop

在這里好多人不是做電氣的，對于語言不了解的，既然寫在這里不如做成一個插件，然后大家在輸入框里輸入想查的東西，一點查詢就能用好些。

mhfx2020

批處理命令?...

mhfx2020

樓主NB....應用場景是?

youhun200

mhfx2020 發表于 2023-12-28 15:57
樓主NB....應用場景是?

以下是從運行開始到結束的截圖

mhfx2020

好物，收藏了。感謝分享