赞
踩
@echo off
echo -------------Start to zip files by 7z------------------
:start
::输入目标目录
echo please input the root directory which you want zip
set /p target_directory=
::判断非法输入
if "%target_directory%"=="" goto :start
if exist %target_directory% if not exist %target_directory%\nul echo INVALID INPUT: %target_directory% &goto:start
::记录执行文件路径
set current_directary=%cd%
::进入目标路径
cd %target_directory%
::如果是其他区
if "%cd%"=="%current_directary%" cd /d %target_directory%
::设置参数(记得修改为自己的参数)
set "exe_dir=D:\Program Files (x86)\7-Zip\7z.exe"
set "my_secret=123456"
set "info_log=%current_directary%\7z_INFO.log"
set "error_log=%current_directary%\7z_ERROR.log"
::以下注释可用于调试
::echo %target_directory%
::echo %current_directary%
::pause
::goto start
::进行压缩
for %%X in (*) do "%exe_dir%" a "%%X.7z" -p%my_secret% -mhe -mx=5 "%%X" 1>>%info_log% 2>>%error_log%
for /d %%X in (*) do "%exe_dir%" a "%%X.7z" -p%my_secret% -mhe -mx=5 "%%X" 1>>%info_log% 2>>%error_log%
::提示压缩完毕
mshta vbscript:createobject("sapi.spvoice").speak("zip files have finished")(window.close)
mshta vbscript:msgbox("zip files have finished",1,"My 7z")(window.close)
goto start
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。