文件,文件夹自打包解包工具

kingshui

如标题，就是一个使用windows自带工具（内外置命令）写的一个方便打包文件的小工具

将文件或者文件夹拖放到批处理上会自动生成另一个自解压的批处理,生成的批处理自带父文件的打包功能，可重复利用。

1. @echo off
   
2. set "_n=%~0"
   
3. if "%~1" NEQ "" goto packagemod
   
4. for /f "usebackq delims==" %%a in ("%_n%") do set "name=%%a"
   
5. certutil -decode "%_n%" "%~n0.cab"
   
6. md "%~n0"
   
7. expand -r "%~n0.cab" ".\%~n0" |find "-F" && expand "%~n0.cab" -F:* ".\%~n0" >nul
   
8. del "%~n0.cab" & explorer "%~n0"
   
9. exit
   
10. 
    
11. :packagemod
    
12. set cmdstr=MAKECAB /v3 /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=On /D Compress=On /D FolderSizeThreshold=5000000 /D DiskDirectoryTemplate="%~dp1." /D CabinetNameTemplate="tmp.cab"
    
13. if exist "%~1" (
    
14.         for /f "delims=" %%a in ('dir "%~1" /a-d /s /b') do (        
    
15.                 setlocal enabledelayedexpansion
    
16.                 set x=%%a
    
17.                 set x=!x:%~dp1=!
    
18.                 echo "%%a" "!x!">>cabstr         
    
19.                 endlocal
    
20.                 )) else (
    
21.                 echo "%~1" "%~nx1" >>cabstr
    
22.                 )
    
23. if "%~2" neq "" shift&goto packagemod        
    
24. %cmdstr% /F cabstr >nul
    
25. del /f/q patch cab cabstr SETUP.INF SETUP.RPT >nul
    
26. powershell -C "& {$outpath = (Join-Path (pwd) '%~n1.base64'); $inpath = (Join-Path (pwd) 'tmp.cab'); [IO.File]::WriteAllText($outpath, ([convert]::ToBase64String(([IO.File]::ReadAllBytes($inpath)))))}"
    
27. for /f "delims=" %%i in (%_n%) do (
    
28.         if "%%i" EQU ":encoding" goto :next
    
29.         echo,%%i>>"%~n1.cmd"
    
30.         )
    
31. :next
    
32. set "certb=BEGIN CERTIFICATE"
    
33. set "certe=END CERTIFICATE"
    
34. set "dash=-----"
    
35. echo :encoding>>"%~n1.cmd"
    
36. echo,%dash%%certb%%dash%>>"%~n1.cmd"
    
37. type "%~n1.base64" >>"%~n1.cmd"
    
38. echo,>>"%~n1.cmd"
    
39. echo,%dash%%certe%%dash%>>"%~n1.cmd"
    
40. echo %~nx1>>"%~n1.cmd"
    
41. del tmp.cab "%~n1.base64"
    
42. exit

复制代码

lr

学习一下。。。

juyz

这个打包的格式是CAB么?

a123456789z

谢谢分享。

旁观者清

打开这个帖子，浏览器居然提示是否翻译。

holley2008

随后拖了个txt试了一下，，还原不了了- -~~~别的类型 源文件都会在  
txt会直接不在掉

kingshui

holley2008 发表于 2021-12-29 20:21
随后拖了个txt试了一下，，还原不了了- -~~~别的类型 源文件都会在  
txt会直接不在掉

多谢反馈，我来检查一下。

ellx98

解压出来后能不能改为不生成文件夹？在当前目录下直接还原
另外不要系统的压缩，改为Winrar怎么以设？我试了一个WINRAR的包，打包完成后还变大了。

kingshui

holley2008 发表于 2021-12-29 20:21
随后拖了个txt试了一下，，还原不了了- -~~~别的类型 源文件都会在  
txt会直接不在掉

代码已经更新。

kingshui

ellx98 发表于 2021-12-31 09:02
解压出来后能不能改为不生成文件夹？在当前目录下直接还原
另外不要系统的压缩，改为Winrar怎么以设？我试 ...

改Winrar的话首先你要安装有Winrar，但是安装路径要查.我这个可以直接在新电脑上放出来了

最主要是现在系统加固得比较厉害，不能复制粘贴文件了，我才搞的这个，直接粘贴文本内容不受限

要在当前目录释放的话改第7行的".\%~n0" 为.\ 和第8行的&后面的内容要删掉

1. @echo off
   
2. set "_n=%~0"
   
3. if "%~1" NEQ "" goto packagemod
   
4. for /f "usebackq delims==" %%a in ("%_n%") do set "name=%%a"
   
5. certutil -decode "%_n%" "%~n0.cab"
   
6. REM md "%~n0"
   
7. expand -r "%~n0.cab" .\ |find "-F" && expand "%~n0.cab" -F:* .\ >nul
   
8. del "%~n0.cab" & explorer "%~n0"
   
9. exit
   
10. 
    
11. :packagemod
    
12. set cmdstr=MAKECAB /v3 /D CompressionType=LZX /D CompressionMemory=21 /D MaxDiskSize=CDROM /D Cabinet=On /D Compress=On /D FolderSizeThreshold=5000000 /D DiskDirectoryTemplate="%~dp1." /D CabinetNameTemplate="tmp.cab"
    
13. if exist "%~1" (
    
14.         for /f "delims=" %%a in ('dir "%~1" /a-d /s /b') do (       
    
15.                 setlocal enabledelayedexpansion
    
16.                 set x=%%a
    
17.                 set x=!x:%~dp1=!
    
18.                 echo "%%a" "!x!">>cabstr        
    
19.                 endlocal
    
20.                 )) else (
    
21.                 echo "%~1" "%~nx1" >>cabstr
    
22.                 )
    
23. if "%~2" neq "" shift&goto packagemod       
    
24. %cmdstr% /F cabstr >nul
    
25. del /f/q patch cab cabstr SETUP.INF SETUP.RPT >nul
    
26. powershell -C "& {$outpath = (Join-Path (pwd) '%~n1.base64'); $inpath = (Join-Path (pwd) 'tmp.cab'); [IO.File]::WriteAllText($outpath, ([convert]::ToBase64String(([IO.File]::ReadAllBytes($inpath)))))}"
    
27. for /f "delims=" %%i in (%_n%) do (
    
28.         if "%%i" EQU ":encoding" goto :next
    
29.         echo,%%i>>"%~n1.cmd"
    
30.         )
    
31. :next
    
32. set "certb=BEGIN CERTIFICATE"
    
33. set "certe=END CERTIFICATE"
    
34. set "dash=-----"
    
35. echo :encoding>>"%~n1.cmd"
    
36. echo,%dash%%certb%%dash%>>"%~n1.cmd"
    
37. type "%~n1.base64" >>"%~n1.cmd"
    
38. echo,>>"%~n1.cmd"
    
39. echo,%dash%%certe%%dash%>>"%~n1.cmd"
    
40. echo %~nx1>>"%~n1.cmd"
    
41. del tmp.cab "%~n1.base64"
    
42. exit
    

复制代码

chibuzhu

没有.cab文件生成，源文件也还在，就生成了一个和源文件名一样的.cmd文件

kingshui

chibuzhu 发表于 2021-12-31 14:11
没有.cab文件生成，源文件也还在，就生成了一个和源文件名一样的.cmd文件

这是正确的，运行这个CMD就能还原出来源文件了，同时这个cmd也附带了父文件的功能

loka

感谢分享