文件批量檢索復(fù)制

youhun200

這個小程序是根據(jù)自己工作需要編寫的，很簡單,，就是在跳出的list.txt里列出你要復(fù)制的文件名（可以不寫后綴名）,，由上至下寫入,，然后按提示創(chuàng)建文件夾或已有文件夾,，檢索后會彈出一個搜索到的文件清單,，以供編輯。保存后回車,，文件就全復(fù)制你指定的文件夾里了,。下面我把代碼復(fù)制過來，僅供參考,。（360會有提示,，若不放心可以分析代碼，絕不會有損害系統(tǒng)的執(zhí)行代碼）就當是一種娛樂吧
@echo off
" o* t! B# ^& @+ X- @, @title  文件批量檢索復(fù)制
color  1e
9 W4 l: @# f; G! T. M9 u7 K:stad
if  not  exist  list.txt  goto  exd
- u4 `: T4 K. v' Ocls
@echo.
set/p       ph=       ● 輸入創(chuàng)建文件夾的名稱或已有文件夾名（空輸入無效）:
+ d* E! f* G2 F2 Wif  "%ph%"==""  goto stad
if  exist  "%ph%"  goto menu
+ p' n2 B( I& ~  Y; l" a' Amd  "%ph%"
:menu
6 s( y$ W+ d! E4 V8 Z! _0 wcls
mshta vbscript:msgbox("在文本中輸入需要搜索的文件列表,， 保存并回車,，單擊確定",64,"提示")(window.close)
list.txt
% D# l8 h# e/ G; K3 Jfindstr /rc:"." /rc:" " list.txt||  goto  ens
cls
@echo.
@echo      回車繼續(xù)......
pause >nul
cls
8 ?$ {; x' p0 o- C) h8 R( j9 v6 [@echo.
@echo                  正在搜索文件，稍候......
' t; k/ J7 Y" c" [" h) Qfor /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
; U0 p1 s/ Q0 @+ x- C* vcls
@echo.
4 x% G8 p) @$ ucls
findstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車,，單擊確定",64,"提示")(window.close)
) z. e; Z4 F. R( V% A( olise.txt
" x+ }9 ^% B! B5 k) R# q' A4 g. ?  q@echo.
@echo      回車繼續(xù)......
5 t. Z# I& }6 zpause >nul
cls
! |5 E) u4 p. L( `% x) kfindstr /rc:"." /rc:" "  lise.txt||  goto  erx
cls
. [9 g6 [. c. g1 }; q% yfor /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
cls
@echo.
- e# \! w* `( {+ V  Z. Cset 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^&"復(fù)制完成! 單擊確定退出",64,"提示")(window.close)
" r; P8 ]" h9 g9 V5 K, f9 F* k% }explorer.exe   %ph%
exit
:exd
9 f9 T3 U1 F3 `8 E' w4 \! |cls
@echo.           >list.txt
cls
% |% u4 h5 a) U# Q, tmshta vbscript:msgbox("【list.txt】文本已創(chuàng)建,單擊確定,，繼續(xù)操作.",64,"提示")(window.close)
cls
! M) b5 p# X" y; y1 ]! T. {goto stad
& [7 Q; I) |/ H( y:ens
3 T  T; P/ L% [# T0 Ccls
$ S, {4 n( W! jmshta vbscript:msgbox("文本不能為空,單擊確定，繼續(xù)操作. ",16,"錯誤提示")(window.close)
  y$ _/ w5 K0 x# g; Yif  not  exist  list.txt  goto exd
goto menu
& _  `# Q1 z3 F( t# Y7 ]:err
cls
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
1 G# [3 t  s& ^7 @exit
- [. U+ B8 ~) v5 Y1 @5 d6 D:erx
cls
del/q   lise.txt  >nul
) i* g/ W0 `8 n2 S( @: b, jmshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
' ?: B" f% M1 A. nexit
差點忘了,，用記事本粘貼后,，自己起名，后綴名寫為bat或cmd
; k- ^; z  c9 }& n* j
& J- h. _8 W6 [

siralop

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

mhfx2020

批處理命令?...

mhfx2020

樓主NB....應(yīng)用場景是?

youhun200

mhfx2020 發(fā)表于 2023-12-28 15:57
5 b  H; j1 H, y2 a+ ?1 t: i' p* k樓主NB....應(yīng)用場景是?

以下是從運行開始到結(jié)束的截圖
) W1 }" U; K$ N# I7 D  s

mhfx2020

好物,，收藏了,。感謝分享