|
|
本帖最后由 youhun200 于 2023-12-28 11:53 编辑
0 v& t. C; }7 J% b
, A+ \4 p" ]0 O' j4 X" O9 Y这个小程序是根据自己工作需要编写的，很简单，就是在跳出的list.txt里列出你要复制的文件名（可以不写后缀名），由上至下写入，然后按提示创建文件夹或已有文件夹，检索后会弹出一个搜索到的文件清单，以供编辑。保存后回车，文件就全复制你指定的文件夹里了。下面我把代码复制过来，仅供参考。（360会有提示，若不放心可以分析代码，绝不会有损害系统的执行代码）就当是一种娱乐吧 # X! ~7 b& ~& Q
@echo off" Q$ h }6 n9 p% Z% A' @" `9 ~
title 文件批量检索复制. u1 Z) k* R2 w6 o% g
color 1e
: E* G& j7 S0 I {* v6 ]:stad( E! P& f- ^9 t1 k: m
if not exist list.txt goto exd
9 _5 i/ w0 r7 h+ O% G/ i0 B Zcls! `# _' c& e# p- r6 s0 g; k
@echo.* I# E$ B V4 X3 S
set/p ph= ● 输入创建文件夹的名称或已有文件夹名（空输入无效）:
2 q( @7 D% G3 z$ D$ W+ Z5 o9 qif "%ph%"=="" goto stad9 w6 h: \' A' L b) k
if exist "%ph%" goto menu z) H4 B! L* ~0 a3 E# v
md "%ph%"
1 ~! I+ I7 Q: ]7 D- `* A4 L' k:menu
; ~; H% J5 B6 C- t6 }cls$ R: R6 @. b, y) z6 h
mshta vbscript:msgbox("在文本中输入需要搜索的文件列表， 保存并回车，单击确定",64,"提示")(window.close)
$ B7 ]0 N/ f4 j. m X' Zlist.txt
2 i& g7 J$ X5 n$ ~& Q7 cfindstr /rc:"." /rc:" " list.txt|| goto ens5 p b* p* G+ X# h# D
cls# H: o/ K* C6 r& a% N* ^2 a
@echo.
. C8 m% J* u. ^1 v' e0 N@echo 回车继续......2 f" U8 I- p6 q" Y ?
pause >nul
; r" B- h" N8 K' Q6 w5 J9 Ycls& |! z/ F5 \+ f+ S2 a8 g; N
@echo.
; a2 N- q1 Q% C+ W@echo 正在搜索文件，稍候......
8 J2 ?* q- q/ Qfor /f "tokens=1*" %%f in (list.txt) do dir/s/a/b \*"%%f"* >>lise.txt 2 t; ?& P* s. V% y/ u
cls
- j; F: }- ~6 V7 l@echo.
' J! y# s3 Q3 g: }; g# jcls
4 a. x$ x, @- k0 l$ Ofindstr /rc:"." /rc:" " lise.txt|| goto err
: O6 `5 i1 K2 h; I8 g* jcls" k5 I& S' M; j+ N
mshta vbscript:msgbox("查阅并编辑搜索到的文件列表, 保存并回车，单击确定",64,"提示")(window.close)
9 _2 A" ~2 y u i; A1 S/ z$ q- Vlise.txt- ~+ p' ^) h: D1 b
@echo.
! E3 ?' N$ J6 @1 e$ k$ Q3 U@echo 回车继续......
& b/ F+ @" L' B, R0 |7 E- b( Apause >nul
|% d; q& x+ A1 zcls: ~4 K8 g3 a1 V
findstr /rc:"." /rc:" " lise.txt|| goto erx6 \! O& _! C. Q7 ^; y5 f6 Y9 D# v
cls
- h$ `1 r( d# \' y4 Pfor /f "tokens=1* delims=" %%f in (lise.txt) do copy/y "%%f" "%ph%" >nul 2>nul. c& Y1 u8 i8 g. U q
cls0 X q. `* C5 N2 F
@echo.
: A6 b( o; }# c( }8 Fset cnt=0% X7 c. Q- c0 m& B2 s9 x$ i1 g
for /f "delims=" %%i in ('dir/b/a-d "%ph%" 2^>nul') do (set /a cnt+=1
+ D3 K7 K2 T- V0 J$ E). ^$ O, T5 d& a0 y
if defined cnt (set inf=共搜索到【%cnt%】个文件.) else echo,NO find files.
; h& W. k5 O4 {8 Ldel/q lise.txt >nul
6 b5 ~+ P* w! X$ V( ^7 v8 hmshta vbscript:msgbox("%inf%"^&vbCr^&vbCr^&"复制完成! 单击确定退出",64,"提示")(window.close)6 \0 Z0 ?1 e9 F# q8 q% F% s+ k
explorer.exe %ph%' `- Y' `3 C1 t0 `
exit L! T& e4 Z2 n5 U
:exd
: H5 _" F+ m: U$ F4 \* ^& w7 xcls) T% h+ N, C3 ^6 D- T
@echo. >list.txt" K) m! h) y) C
cls
, f' N) ^3 t/ {. O9 x, ]3 e. Umshta vbscript:msgbox("【list.txt】文本已创建,单击确定，继续操作.",64,"提示")(window.close)$ O$ V6 S, j+ c- a
cls3 S) y6 \; n4 R# U
goto stad! N% s, r" g* F y
:ens' m% j/ H! d! u; X& ?' ?8 i1 O
cls
6 I# E1 Z# H) u: m+ S7 Omshta vbscript:msgbox("文本不能为空,单击确定，继续操作. ",16,"错误提示")(window.close). t9 B: j% i4 _6 ]: @3 T' B, g, j
if not exist list.txt goto exd
$ h7 h+ M; B p) C0 k3 {3 V# N d: kgoto menu. d7 P# M, [& W3 G: p
:err
: j: C0 ^6 x' i, T4 ^2 C( x; {* ?cls
( k/ O; y, o: e* lmshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
0 t1 L+ t4 g+ g" y) u' ]0 |. |exit3 t5 E' H5 h; F/ e
:erx
% L+ _' U- S; L# i5 j5 mcls
, D" ~* z- l1 i9 P/ o2 j3 odel/q lise.txt >nul
' O7 M/ X( h+ w* smshta vbscript:msgbox("没有搜索到你要的文件,单击确定退出",64,"提示")(window.close)
- ]( k" v9 e1 n/ D6 }) R4 w5 Oexit - T* y: n. t, P2 w
差点忘了，用记事本粘贴后，自己起名，后缀名写为bat或cmd* q( H! K: U* A$ |2 X) J
! |- y/ t$ l+ V6 k+ r( w) E; D" n |
评分
-
查看全部评分
|
发表于 2023-12-28 11:51:23
