【Access小品】如何放屁 -- 再论压缩与解压

这是我的小号

按这个函数处理的话，解压后的文件自动放在“我的文档”里：
Sub winrar()
Call RarX("C:\Program Files\WinRAR\WinRAR.exe", CurrentProject.Path & "\订单VArGAU.zip", CurrentProject.Path & "\备份\*.csv", "VArGAU")
End Sub
换句话说，即使存在“备份”文件夹，也不会放在“备份”文件夹中。还能改么？

这是我的小号

我知道了。

1. Public Function RarX(ByVal RAR As String, ByVal RARname As String, ByVal fldname As String, Optional password As String)
   
2.     '功能:解压文件
   
3.     '参数:RAR --RAR地址
   
4.     '     RARname---压缩文件名（含路径）
   
5.     '     fldname---解压的文件夹名（含路径）
   
6.     '示例:RarX "C:\Program Files\WinRAR\WinRAR.exe",CurrentProject.Path & "\备份\后台备份.rar",CurrentProject.Path & "\备份\*.mdb","123"
   
7.     Dim cmd As String
   
8.     If Nz(password, "") = "" Then
   
9.         cmd = " x "
   
10.     Else
    
11. '加个-o才可以把文件解压到指定文件夹。否则默认解压到“我的文档”
    
12.         cmd = " x -o -p{0} "
    
13.         cmd = ReplaceValues(cmd, password)
    
14.     End If
    
15.     Call Shell(RAR & cmd & """" & RARname & """ *.* """ & fldname & """", vbNormalFocus)
    
16. End Function

复制代码