U盘自动压缩复制小程序
程序员文章站
2022-07-08 16:30:45
...
经常需要复制文件到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
上一篇: 批量替换配置文件中的URL
下一篇: bat 正则替换