VBA解压文件和压缩文件函数

cidanji · 发表于 2024-1-10 20:36

操作电脑文件解压和压缩

压缩方法
yasuo 压缩文件路径, 被压缩文件路径
如：yasuo "D:\A.rar", "D:\A.txt" '此句把A.txt压缩成A.rar，放到D盘

解压方法
jieya 压缩文件路径, 解压到目标文件夹路径
如：jieya "D:\A.rar", "D:\" '此句把A.rar内文件解压到D盘

调用例子

Sub 文件压缩测试()
yasuo "D:\A.rar", "D:\A.txt"
End Sub

复制代码

Sub 文件解压测试()
jieya "D:\A.rar", "D:"
End Sub

复制代码

解压\压缩函数

Function jieya(rarP$, foderP$)
Dim exeP$
exeP = GetSetupPath("WinRAR.exe")
If exeP = "" Then MsgBox "未安装 WinRAR 软件": Exit Function
Shell exeP & "\WinRAR.exe X " & rarP & " " & foderP, vbHide
End Function
Function yasuo(rarP$, fileP$)
Dim exeP$
exeP = GetSetupPath("WinRAR.exe")
If exeP = "" Then MsgBox "未安装 WinRAR 软件": Exit Function
Shell exeP & "\WinRAR.exe A -ep " & rarP & " " & fileP, vbHide
End Function
Private Function GetSetupPath(AppName As String)
On Error Resume Next
Dim Wsh As Object
Set Wsh = CreateObject("Wscript.Shell")
GetSetupPath = Wsh.regread("HKEY_LOCAL_MACHINE\Software" & "\Microsoft\Windows\CurrentVersion\App Paths" & AppName & "\Path")
Set Wsh = Nothing
End Function

复制代码

ykcbf1100 · 发表于 2024-1-11 07:28

感觉直接在当前路径下压缩和解压更方便一点，那样参数就不用带路径了。

沈默00 · 发表于 2024-1-11 07:47

支持分享，学习一下

cidanji · 发表于 2024-1-11 08:22

ykcbf1100 发表于 2024-1-11 07:28
感觉直接在当前路径下压缩和解压更方便一点，那样参数就不用带路径了。

哈哈对，我都没想到这样写

morpheus126 · 发表于 2024-1-11 10:57

没有winrar就Exit Function。。。winrar装机量应该不是很大。。。个人估计

cidanji · 发表于 2024-1-11 11:13

morpheus126 发表于 2024-1-11 10:57
没有winrar就Exit Function。。。winrar装机量应该不是很大。。。个人估计

对，调用的winrar命令行所以要有winrar软件，应用场景比较窄，比如面向特定用户开发的需要解压缩文件的工具里使用，来提示安装软件。
不用winrar也能操作，现在我只会压缩，写解压还不熟练，等哪天熟练了得空再分享不用winrar的解压缩方法

ztj277702035 · 发表于 2024-6-6 08:47

GetSetupPath = Wsh.regread("HKEY_LOCAL_MACHINE\Software" & "\Microsoft\Windows\CurrentVersion\App Paths" & AppName & "\Path")这个？我装了winrar，但报错

『大卫』 · 发表于 2024-7-3 19:34

ztj277702035 发表于 2024-6-6 08:47
GetSetupPath = Wsh.regread("HKEY_LOCAL_MACHINE\Software" & "\Microsoft\Windows\CurrentVersion\App Pa ...

GetSetupPath = Wsh.regread("HKEY_LOCAL_MACHINE\Software" & "\Microsoft\Windows\CurrentVersion\App Paths这里少个“\” " & AppName & "\Path")

		自动登录	找回密码
密码			免费注册

[分享] VBA解压文件和压缩文件函数

评分

评分