[文件操作] 批量拖动复制改名+压缩+压缩包内改名，求大神指导！（困难）

@echo off
path "C:\Program Files\WinRAR\";%path%
for /d %%i in ("%*") do (
    for /d %%j in ("%%i\*") do WinRAR a -ep1 -afzip -r "%%j.zip" "%%j\*"
)
pause
复制代码

@echo off
rem 拖放/拖拽文件到bat文件图标上实现修改文件扩展名/后缀名
title 完成后请打开ok.zip 
setlocal enabledelayedexpansion
>"%tmp%\t.t" echo;!cmdcmdline!
endlocal
>"%tmp%\j.j" echo;s=WSH.StdIn.ReadLine().replace(/^^.+?\.(bat^|cmd)"/i,'');
>>"%tmp%\j.j" echo;WSH.echo(s.replace(/"/g,'').replace(/\s(?=[a-z]:)/ig,'\r\n'));
set "n="
for /f "delims=" %%a in ('type "%tmp%\t.t"^|cscript -nologo -e:jscript "%tmp%\j.j"') do (
    set /a n+=1
    echo; "%%a" --^> "%%a1"
    copy "%%a" "%%a1" & "C:\Program Files (x86)\WinRAR\Rar.exe" m -ep1 -r -idq "ok.zip" "%%a1" 
)
if not defined n (echo;拖放文件或文件夹到bat文件图标上&goto end)
:end
 "C:\Program Files (x86)\WinRAR\Rar.exe" rn -idq ok.zip *.xls1 *.xls *.doc1 *.doc *.ppt1 *.ppt 
>nul ping -n 5 0
exit
复制代码