[文本处理] 批处理搜集所有盘符中特定文件并进行压缩，代码写好了，如何改进？

pplive517

我的目的是把盘符中所有特定非英文和数字组合名字的*.doc文件进行搜集到特定文件夹下，并进行压缩，总感觉效率不高，有没有好的方法改进，有不足支持请多多指教,谢谢了O(∩_∩)O~：

@echo off&setlocal enabledelayedexpansion
title 复制文件
color 07
::创建文件夹
Md f:\word 2>nul
::对各盘符特定文件查找，对文件名进行匹配，合适文件进行复制
for %%i in (c d e f g) do (
	For /f "delims=" %%j in ('dir /s /b "%%i:\*.xls" "%%i:\*.doc"') do ( 
	set file=%%~nj
	set file=!file:*_=!
	echo !file!|findstr /ibe "[0-9,a-z,A-Z]*">nul&&echo 无中文||Copy /y "%%j" f:\word
		)
		)
)
::获取winrar的完全路径。
For /f skip^=2^ tokens^=2^ delims^=^"  %%i in ('Reg Query "HKEY_CLASSES_ROOT\Applications\WinRAR.exe\shell\open\command" /ve') do Set winrar=%%i
::获取rar.exe的完全路径
Set rarpath=%winrar:winrar.exe=rar.exe%
::修改此处执行rar命令
"%rarpath%" a "f:\2" "f:\word"
::删除当前文件夹，擦出痕迹
::rd/s/q f:\word
::运行完自动退出
pause>nul
exit
复制代码

pplive517

回复 2# hfg1977


    如果是7z的话，需要机子安装7z的软件，针对大多数机子都安装winrar，所以选择了rar压缩》

pplive517

回复 4# hfg1977


    不会吧，我的可以正常通过，换用的代码反而出错，无法解压，winrar安装的路径和系统的版本也能影响其在注册表的位置吗，
如何才能在各个版本系统和不知道安装路径的时候均能正常工作呢？