|
|
本帖最后由 youhun200 于 2023-12-28 11:53 编辑
- f, g) Z4 [( Z+ `6 }
. N: v& m u7 L这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧 0 ^0 K) ^4 D) ?2 }
@echo off
4 d& P+ w# m/ o a' f, r8 Ttitle 文件批量检索复制! o' z6 B' [+ T# h
color 1e
7 A$ }5 n% P' y) k; b:stad3 L0 r4 `6 j! L0 O! w9 W0 @
if not exist list.txt goto exd3 m* U5 B1 @3 X' O9 T: M% [4 k/ W9 U6 Y6 c
cls# j4 P! @! n, f) q0 u) ~/ I, `
@echo.3 s2 o8 x) Q% O! j7 P* t
set/p ph= ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:4 X5 T: i+ P. c
if "%ph%"=="" goto stad
# V+ C4 Y2 Y8 w7 Iif exist "%ph%" goto menu6 L' m5 ^- |9 a$ P$ C
md "%ph%" ( i9 y* ^! j. s% \9 g; A$ e
:menu4 @4 \# N5 k( t, n7 E
cls
$ |8 e! r+ B* ^9 Xmshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)! u; n9 m0 {* }- {0 [
list.txt
: R+ b; p' z4 W/ ufindstr /rc:"." /rc:" " list.txt|| goto ens' L9 [% g- h1 U. H2 x+ P
cls
! ~! z" l8 U" ^- R@echo./ {; v, _# `. L2 ^
@echo 回车继续......
# d" |! J0 q+ H5 y* \pause >nul2 J$ b# q* L0 E
cls: d" ?9 r* V$ A+ u0 _5 j
@echo.( A7 `& e9 E7 c P" t/ T5 v G
@echo 正在搜索文件，稍候......" \' p0 P+ |; Q& q& S$ s
for /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt
, j3 E6 H% D6 }1 `cls
& }0 A+ k1 V2 _6 J. L@echo.
8 s6 @2 ^% T6 N' o4 P: j+ Jcls
+ N2 \* i; O" {) }findstr /rc:"." /rc:" " lise.txt|| goto err5 ?) F8 D3 Y! y/ i1 x. c
cls
1 k A. ^; B9 O$ ymshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)5 N6 K6 K2 `# ~; q
lise.txt' ~; z6 b4 ]1 c X# s2 ~& n
@echo.
2 e# V% D9 C9 D/ h: ~% j1 }- g* D6 ?& R@echo 回车继续......
7 `: C, i. B% ?: w3 q5 e& Mpause >nul ~) s& B. n- q; N" ^6 D
cls& r1 v, e6 F0 a- H( p
findstr /rc:"." /rc:" " lise.txt|| goto erx
2 [6 n# ]) X. ?$ l( Jcls
# l9 T2 [, z( b4 z) I* Ffor /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul
1 e9 i: ]2 u% ]: `cls
! R" }; A3 \, k% n, o' q! ] S@echo.: P- z4 P1 v' L; r+ v+ B
set cnt=0& x ^+ \, z6 p/ I; m# B
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
4 E+ [7 p- E( n7 {! J: j, B)
5 V4 {# z1 r5 k2 yif defined cnt (set inf=共搜索到【%cnt%】个文件.) else echo,NO find files.& k' f: P9 d9 |' a: J" R
del/q lise.txt >nul) p8 u6 k: d6 t* Y/ y4 X2 C' ^
mshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)3 x; H3 y$ N9 n& N( A* w9 T! {5 X
explorer.exe %ph%
; B. x3 _; b! ^5 Iexit; n& Z6 `$ D* k! T, c
:exd
8 I( ]% h! G0 ^( A, v3 U0 I! H7 gcls
/ z6 P. A% G7 Z: M1 E, k& s@echo. >list.txt
8 y4 O, {: |' }0 l, ~! p% Mcls8 G) I8 C' r g' \1 w4 u' I: a+ ^- _
mshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)" e' t0 [# }) }# l9 A6 Q$ r1 R P& x
cls: ?' N) [/ p: C$ l* u0 O
goto stad5 I! Y. O: a1 s# l- P8 a+ Z
:ens
' G% ~5 Z' y! @/ gcls* G2 [& f8 Q+ M% `
mshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close)% u/ Y$ ?$ q9 U8 H( N9 y$ X
if not exist list.txt goto exd8 U0 S$ ^+ {# T3 @" W. T& z! b* d; i
goto menu
# D7 m; i) [0 L:err( a- P) a: Z3 a$ W; p' M
cls% ], w: j7 h5 r( ~! B
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
! Q( I; I6 ]% T. c( kexit
" |& d4 M. j7 d5 h, }:erx
t! D. p- ]3 _+ p- n1 Q7 x' jcls
7 H5 O5 w }$ ydel/q lise.txt >nul & l9 N- b {/ e# |0 h5 f8 b
mshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
: k7 r* x- n: ^$ L& W5 Eexit
/ H% Z2 b+ s. ]( C1 L# X' ]差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd
! N/ \" F; C3 B/ R% ~4 ^9 L5 k) n5 ~! t6 j4 S
|
评分
-
查看全部评分
|
发表于 2023-12-28 11:51:23
