U盘自动压缩复制小程序

经常需要复制文件到U盘，或者从U盘复制出来，基本上是同一个文件夹，来回复制，电脑上也是固定文件夹，可以用小程序自动化，以免来回打开文件夹，打压缩包

@echo off


::此程序需放入U盘里

::U盘存放路径 压缩包名要与电脑文件夹名一致

::文件夹名称
set mdir=workdir

::笔记本名字
set "notebook=USER-35"


::U盘中的存放路径 data\workdir.zip
set ufile=data\%mdir%.zip

::获取U盘当前路径
for /F  %%a in ('cd') do set upath=%%a

::获取当前主机名
for /F "tokens=2 delims=:"  %%a in ('ipconfig /all ^|find "主机名"') do set hostName=%%a

::去除主机名中的空格
set "hostName=%hostName: =%"

::获取hostDir主机盘符 d:
for /F "tokens=1 delims=:"  %%a in ("%hostDir%") do set "drive=%%a:"

::环境设置
 if "%hostName%"=="%notebook%" goto notebook else goto pc
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: 当前电脑为笔记本
:notebook

		::笔记本rar安装目录 压缩便于快速复制
		set "Path=%Path%;D:\Program Files\WinRAR\"

		::笔记本上存放数据的文件夹
		set "hostDir=D:\Programs\data\"
		
:: 当前电脑为台式机
:pc
		::笔记本rar安装目录 压缩便于快速复制
		set "Path=%Path%;D:\Program Files\WinRAR\"

		::笔记本上存放数据的文件夹
		set "hostDir=D:\Programs\data\"

::操作类型
choice /c abc /m "[a]:U盘=》电脑 	[b]:电脑=》U盘	c:退出	不区分大小写" 
		
if %errorlevel% equ 1  (
		goto UsbOut
		)

if %errorlevel% equ 2  (
		goto usbIn
		)
if %errorlevel% equ 3  (
		goto end
		)

goto end		

::从U盘复制出来
:UsbOut

		 echo U盘=》电脑

		 echo 从U盘复制%ufile% 。。。
		 echo 电脑文件夹%hostDir%
		 copy /b /y %ufile% %hostDir%
		 
		 echo 在电脑上解压。。。
		 winrar.exe x -y -ms*.zip  %hostDir%%mdir%.zip  %hostDir%
		 
		 echo 删除电脑压缩包。。。
		 cd /d %hostDir%
		 if EXIST %mdir%.zip del /Q  %mdir%.zip
		 goto end

::复制到U盘
:usbIn
			echo 电脑=》U盘
		 cd /d %hostDir%

		 if EXIST %mdir%.zip del /Q  %hostDir%%mdir%.zip
		 
		 echo 压缩文件夹%mdir%。。。
		 winrar.exe a -r -ms*.zip %mdir%.zip  %mdir%
		 
		 echo 复制%mdir%.zip到U盘 %upath%%ufile%。。。
		 copy /b /y %mdir%.zip %upath%%ufile%
		 
		 echo 删除临时压缩包
		 if EXIST %mdir%.zip del /Q  %hostDir%%mdir%.zip

:end

echo 操作成功！
pause