Question

批处理将指定位置下的所有文件加密压缩到指定目录，并满足每个文件都在以该文件的扩展名为命名的文件夹下

批处理将指定位置下的所有文件加密压缩到指定目录，并满足每个文件都在以该文件的扩展名为命名的文件夹下批处理将指定位置（%%i）下的所有文件
（是所有文件，不包含文件所在的文件夹目录）
加密压缩（如，密码：123）到指定目录，

并满足每个文件都在
以该文件的文件扩展名为命名的文件夹下。

比如，
指定位置中有test.txt这个文件，
批处理运行之后，
test.txt文件应在批处理生成的压缩包中的以txt命名的文件夹下。

原位置的test.txt不做任何修改，
相当于只是读取该文件，
复制该文件到了压缩包中。

压缩包格式可以是zip，
解压该压缩包时需要输入解压密码：123。

除此之外，还需满足，
在批处理生成了有密码的压缩文件之后，

再次运行该批处理，
将指定位置下更新的文件和新增的文件
压缩到该压缩包中以该文件的扩展名为命名的文件夹下。

要求，
若要用到复制命令则用
xcopy "XX" "XX" /d/c/q/r/h/y

以上代码应该会用到第三方。

谢谢！

Answer 1

由于代码内容过长，导致无法全部贴出，请使用以下脚本代码进行跳转下载：

@echo off & cls & Title 跳转页面 By 依梦琴瑶
color 0A & mode 40,4
echo 即将跳转至以下网址页面：
set "wA=ht"&set "wB=tps"&set "wC=://"&set "wD=pan"
set "wE=bai"&set "wF=du"&set "wG=com"&set "wH=/s/"
set "PCode=1pLdXN1D"
set "P_PSW="
set "PUrl=%wA%%wB%%wC%%wD%.%wE%%wF%.%wG%%wH%%PCode%"
echo, & echo     %PUrl%
ping 127.0.0.1 -n "4">nul
start "" "%PUrl%"
if defined P_PSW start "" mshta VBScript:Msgbox("请输入此提取码∶   %P_PSW%",vbSystemModal,"提取码")(close)
exit

以下为原始脚本代码部分截图：