通过VBS实现zip压缩及加密

2022-04-25 08:46:20 356 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

gareth201313 墨衍会员 · AI 创作全网分发关注 + 加入社区

RAR/ZIP/7Z压缩格式核心技术对比与应用指南文件压缩技术通过算法消除数据冗余，在存储与传输领域具有重要价值。主流压缩格式采用不同技术路线：ZIP基于Deflate算法实现广泛兼容性，RAR通过RAR5算法和恢复记录功能确保数据安全，7z则凭借LZMA2算法提供更高压缩率。工程实践中需根据场景需求选择格式，如跨国传输优先ZIP的通用性，敏感数据存储采用RAR的加密特性，大文件分发可选用7z的高压缩比。测试数据显示，LZMA2算法相比传统Deflate可提升10-15%压缩效率，但需权衡时间成本。在数据安全方面，RAR5的AES-256+PBKDF2迭代阅读详情

以下代码可以不依赖rar程序，实现对文件的压缩，但无法添加压缩密封，不知有哪位大神可以实现加密码压缩，求分享！

Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) <> "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType = "Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType = "File"
FileName = fso.GetFileName(mySourceDir)
FolderPath = Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f = fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
f.Close
Set objShell = CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource = objShell.NameSpace(mySourceDir)
Set objFolderItem = objSource.Items()
Case "File"
Set objSource = objShell.NameSpace(FolderPath)
Set objFolderItem = objSource.ParseName(FileName)
End Select
Set objTarget = objShell.NameSpace(myZipFile)
intOptions = 256
objTarget.CopyHere objFolderItem, intOptions
Do
Delay 1000
Loop Until objTarget.Items.Count > 0
End Sub

...全文