文件批量檢索復制

youhun200

8 G* q' e6 [4 J3 Z) U
8 \) X5 |0 t; Q0 @1 ~2 f7 v( \; U這個小程序是根據自己工作需要編寫的，很簡單，就是在跳出的list.txt里列出你要復制的文件名（可以不寫后綴名），由上至下寫入，然后按提示創建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單，以供編輯。保存后回車，文件就全復制你指定的文件夾里了。下面我把代碼復制過來，僅供參考。（360會有提示，若不放心可以分析代碼，絕不會有損害系統的執行代碼）就當是一種娛樂吧
@echo off
title  文件批量檢索復制
color  1e
2 q1 F+ J' d2 w1 f4 c1 c8 J:stad
if  not  exist  list.txt  goto  exd
cls
@echo.
set/p       ph=       ● 輸入創建文件夾的名稱或已有文件夾名（空輸入無效）:
if  "%ph%"==""  goto stad
: |- [3 q3 ^* y& Wif  exist  "%ph%"  goto menu
md  "%ph%"
:menu
cls
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車，單擊確定",64,"提示")(window.close)
% t/ [% u" n7 ^  N4 l. N! mlist.txt
: @0 D9 o0 }, k, h9 x7 K* vfindstr /rc:"." /rc:" " list.txt||  goto  ens
cls
, V4 b% Z% W! C3 D6 X$ {. G5 {0 E@echo.
2 D4 {: j: R8 A0 P@echo      回車繼續......
pause >nul
cls
; q& I/ Y1 ~5 f4 [& s@echo.
6 j8 h% A* L1 r2 F0 s@echo                  正在搜索文件，稍候......
for /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
; }& p6 s+ A5 m2 ^cls
/ Z+ W2 v3 w4 u7 ]0 B3 k@echo.
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
% A: }2 G' G/ \% z$ c9 n# R8 I! }mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
lise.txt
9 L8 P, _) G- v# w1 t@echo.
3 R0 E+ {7 M+ e$ K@echo      回車繼續......
pause >nul
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  erx
cls
  ]$ ~$ h9 f* a3 Ofor /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
0 T& c. i0 B) r" |7 j0 ^cls
/ b: {4 h. E+ t  ]& D5 \@echo.
set cnt=0
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
)
- y+ G5 l( c- a# aif defined cnt (set   inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
# H0 T0 \" A8 T- Q* f1 u0 p* P3 ddel/q   lise.txt  >nul
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復制完成! 單擊確定退出",64,"提示")(window.close)
explorer.exe   %ph%
exit
:exd
+ K+ N1 J3 E/ a- O! h0 \cls
@echo.           >list.txt
cls
mshta vbscript:msgbox("【list.txt】文本已創建,單擊確定，繼續操作.",64,"提示")(window.close)
cls
+ [  u0 `5 c9 W3 E3 _0 ^goto stad
:ens
* K0 j, P+ t8 e+ L, b6 b/ x# Jcls
/ \$ T1 O5 E2 \5 [mshta vbscript:msgbox("文本不能為空,單擊確定，繼續操作. ",16,"錯誤提示")(window.close)
/ j. y5 \$ X3 r9 ^  E6 l& t, q* `if  not  exist  list.txt  goto exd
+ `+ @) r7 W! Y$ G1 `( J& ~goto menu
/ I) v* u6 K  n# Q:err
cls
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
:erx
4 m9 Z" `8 w) p0 y, A- `* e  ucls
* Q# B. h5 Q* t$ H' ~0 C3 v# X% udel/q   lise.txt  >nul
1 W/ X" N1 k6 d6 U2 `+ Tmshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
$ ?3 N5 g* X4 p8 e/ q差點忘了，用記事本粘貼后，自己起名，后綴名寫為bat或cmd

7 @+ f2 c9 B" [9 Q

siralop

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

mhfx2020

批處理命令?...

mhfx2020

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

youhun200

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

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

mhfx2020

好物，收藏了。感謝分享