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

youhun200

這個(gè)小程序是根據(jù)自己工作需要編寫的,，很簡單,，就是在跳出的list.txt里列出你要復(fù)制的文件名（可以不寫后綴名），由上至下寫入,，然后按提示創(chuàng)建文件夾或已有文件夾,，檢索后會(huì)彈出一個(gè)搜索到的文件清單,，以供編輯。保存后回車,，文件就全復(fù)制你指定的文件夾里了,。下面我把代碼復(fù)制過來,，僅供參考。（360會(huì)有提示,，若不放心可以分析代碼,，絕不會(huì)有損害系統(tǒng)的執(zhí)行代碼）就當(dāng)是一種娛樂吧
; l6 v+ A4 Y! g" T9 B* p  a@echo off
title  文件批量檢索復(fù)制
. k9 h: v4 n( b  scolor  1e
+ K. @2 x/ @8 Z; C, z" q& }  W:stad
if  not  exist  list.txt  goto  exd
cls
@echo.
! }, y( N% q5 ^set/p       ph=       ● 輸入創(chuàng)建文件夾的名稱或已有文件夾名（空輸入無效）:
if  "%ph%"==""  goto stad
if  exist  "%ph%"  goto menu
md  "%ph%"
- g4 J( R0 \3 h5 u:menu
cls
" o1 d" `, V' t2 W( Fmshta vbscript:msgbox("在文本中輸入需要搜索的文件列表， 保存并回車,，單擊確定",64,"提示")(window.close)
2 w' Q! V& l) ^' t: blist.txt
findstr /rc:"." /rc:" " list.txt||  goto  ens
$ p8 T1 ]. s! b. k: o8 s' V! Ccls
@echo.
@echo      回車?yán)^續(xù)......
pause >nul
cls
@echo.
1 t1 J. m, U2 U7 `@echo                  正在搜索文件,，稍候......
for /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
0 m- s# i) z# a8 T  A; Ucls
+ H- a- Z1 B% ^- D+ y@echo.
cls
6 h, y2 g" F* ~8 V) ufindstr /rc:"." /rc:" "  lise.txt||  goto  err
cls
. e1 I5 E( ^$ R4 n0 Zmshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車，單擊確定",64,"提示")(window.close)
lise.txt
@echo.
@echo      回車?yán)^續(xù)......
pause >nul
cls
$ Z% |% |" J. j, ^/ }0 y% Kfindstr /rc:"." /rc:" "  lise.txt||  goto  erx
cls
3 P' D6 z. J; d- F/ T, {% Nfor /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
" o9 |# p+ \& j5 e* T' mcls
! s9 q4 Q' n' l1 P$ g) s4 M@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%】個(gè)文件.) else echo,NO find files.
# s# y/ d0 u- ~1 S7 F/ D# xdel/q   lise.txt  >nul
# Y) y3 ^9 Q7 V2 Lmshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復(fù)制完成! 單擊確定退出",64,"提示")(window.close)
explorer.exe   %ph%
exit
:exd
cls
2 O9 [) m# N  l@echo.           >list.txt
cls
mshta vbscript:msgbox("【list.txt】文本已創(chuàng)建,單擊確定,，繼續(xù)操作.",64,"提示")(window.close)
cls
" I3 i5 V5 Z- g4 M3 b! I& t1 d  xgoto stad
:ens
cls
( \! {" K1 S8 D4 h% a8 d  c. _. J' imshta vbscript:msgbox("文本不能為空,單擊確定,，繼續(xù)操作. ",16,"錯(cuò)誤提示")(window.close)
if  not  exist  list.txt  goto exd
+ l+ P% @" f" y0 b& lgoto menu
:err
& e$ y1 E, d% ~# Z8 c3 j1 |9 Fcls
0 H9 d9 ]% W' t# Dmshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
+ l" k4 Y3 _2 V% }exit
:erx
cls
+ S$ J: j" r& G6 [# H4 pdel/q   lise.txt  >nul
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
" z' O" X0 Z% ]差點(diǎn)忘了，用記事本粘貼后,，自己起名,，后綴名寫為bat或cmd
5 v4 R$ J. b; V9 o2 C: ^+ k6 u
8 B6 f* E* q/ q; i8 r! g4 V' O1 r

siralop

在這里好多人不是做電氣的,，對(duì)于語言不了解的,，既然寫在這里不如做成一個(gè)插件，然后大家在輸入框里輸入想查的東西,，一點(diǎn)查詢就能用好些,。
0 i  F5 c( [* y/ I" }

mhfx2020

批處理命令?...

mhfx2020

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

youhun200

mhfx2020 發(fā)表于 2023-12-28 15:57
0 Y0 H. k8 K: x9 H* d2 X+ h樓主NB....應(yīng)用場景是?

以下是從運(yùn)行開始到結(jié)束的截圖
7 i* A! i+ j% x2 P) }" E6 B; }

mhfx2020

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