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

youhun200

這個小程序是根據(jù)自己工作需要編寫的,，很簡單，就是在跳出的list.txt里列出你要復(fù)制的文件名（可以不寫后綴名）,，由上至下寫入，然后按提示創(chuàng)建文件夾或已有文件夾，檢索后會彈出一個搜索到的文件清單,，以供編輯。保存后回車,，文件就全復(fù)制你指定的文件夾里了,。下面我把代碼復(fù)制過來，僅供參考,。（360會有提示,，若不放心可以分析代碼，絕不會有損害系統(tǒng)的執(zhí)行代碼）就當(dāng)是一種娛樂吧
@echo off
title  文件批量檢索復(fù)制
( J1 S+ ~, e) vcolor  1e
:stad
if  not  exist  list.txt  goto  exd
cls
@echo.
/ [3 }( V* [" v; H9 @7 f: Dset/p       ph=       ● 輸入創(chuàng)建文件夾的名稱或已有文件夾名（空輸入無效）:
if  "%ph%"==""  goto stad
if  exist  "%ph%"  goto menu
md  "%ph%"
:menu
! r8 t! W  |! x. ]/ e- Gcls
4 _3 \" V: y4 X6 ?2 Dmshta vbscript:msgbox("在文本中輸入需要搜索的文件列表,， 保存并回車,，單擊確定",64,"提示")(window.close)
' C. ~+ a/ o4 ~4 ^5 d$ Ulist.txt
  y/ D! x- D% t0 ]6 o. F9 Jfindstr /rc:"." /rc:" " list.txt||  goto  ens
cls
@echo.
. A: }# W) n: m1 Z- o@echo      回車?yán)^續(xù)......
, F7 Z$ s2 j  Epause >nul
cls
@echo.
@echo                  正在搜索文件，稍候......
, D2 v3 h. L3 `5 ]) u' z- m/ u+ q; `6 kfor /f  "tokens=1*"  %%f  in (list.txt) do  dir/s/a/b  \*"%%f"*  >>lise.txt
cls
7 q8 D" `" {6 c* d" R) Y( b* ?@echo.
cls
findstr /rc:"." /rc:" "  lise.txt||  goto  err
' r9 Y' s- p  Y- vcls
mshta vbscript:msgbox("查閱并編輯搜索到的文件列表, 保存并回車,，單擊確定",64,"提示")(window.close)
. q3 C$ [$ d" W- S8 Ilise.txt
# D3 d5 I3 R: K- N@echo.
@echo      回車?yán)^續(xù)......
4 S+ L) x( _; L. A& mpause >nul
- p) K% F* Y; G+ L$ q: {7 }! Xcls
findstr /rc:"." /rc:" "  lise.txt||  goto  erx
* ?. W& n; o, A  X+ d% Pcls
for /f  "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f"  "%ph%"  >nul  2>nul
8 J( }/ v1 _" qcls
. w$ F/ \4 r! I5 r! n* x@echo.
set cnt=0
1 }0 n9 B: R+ ^, ~9 E2 I$ H/ [for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
)
5 ~- |' T: L) U+ _6 Dif defined cnt (set   inf=共搜索到【%cnt%】個文件.) else echo,NO find files.
del/q   lise.txt  >nul
1 `7 m' j& @) i: r5 c/ @8 Dmshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"復(fù)制完成! 單擊確定退出",64,"提示")(window.close)
* ^* Z* m( b0 U3 c$ Dexplorer.exe   %ph%
exit
:exd
+ C- @$ D& g! n( G  G2 r# @# lcls
@echo.           >list.txt
cls
mshta vbscript:msgbox("【list.txt】文本已創(chuàng)建,單擊確定,，繼續(xù)操作.",64,"提示")(window.close)
  r2 u" v. K  I3 H  U  ]' Hcls
; T6 e5 u( r5 |0 i2 \. n8 X; ?; Ogoto stad
:ens
  ~. \1 q8 m8 w/ r; F; s9 jcls
mshta vbscript:msgbox("文本不能為空,單擊確定,，繼續(xù)操作. ",16,"錯誤提示")(window.close)
if  not  exist  list.txt  goto exd
goto menu
) t  r. U. j& e1 H* ]; g( ^:err
( z8 n% @" I8 c( }5 Qcls
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
& W' h4 x6 z/ q9 F/ X7 kexit
( t& o% w$ o7 T2 O:erx
0 f7 X6 w. s6 t3 ccls
3 P# ]% ^+ y2 W7 b. F% t- u# Edel/q   lise.txt  >nul
mshta vbscript:msgbox("沒有搜索到你要的文件,單擊確定退出",64,"提示")(window.close)
exit
差點(diǎn)忘了，用記事本粘貼后,，自己起名,，后綴名寫為bat或cmd
  @% Q7 ^. h9 p1 S& x

siralop

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

mhfx2020

批處理命令?...

mhfx2020

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

youhun200

mhfx2020 發(fā)表于 2023-12-28 15:57
樓主NB....應(yīng)用場景是?

" ^  p/ X; R9 p$ x9 G以下是從運(yùn)行開始到結(jié)束的截圖
9 W5 f2 _; P+ }/ l. H, Z" {

mhfx2020

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