求【对文件夹的进行zip分卷压缩（大小1M）】方法解决思路

求【对文件夹的进行zip分卷压缩（大小1M）】方法
RT

------解决方案--------------------
找个压缩文件的工具类就行了。
------解决方案--------------------
1、Shell函数 
2、关于WinRar的用法 
---------记住压缩文件夹区别
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。 
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。 

------解决方案--------------------
-----------------just for reference 
代码如下:

'[先引用Registry Access Functions library(RegObj.dll)]: 
Private Sub Command1_Click()
compress "C:\3.bmp", "c:\x.bmp" ' 将"C:\3.bmp",压缩为"c:\x.bmp" 。
End Sub

Function GetWINRARPath() As String
Dim myReg As New Registry, KeyFound As Boolean
KeyFound = myReg.GetKeyValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE", "Path", GetWINRARPath)
If KeyFound = False Then MsgBox "系统未安装WINRAR.EXE!": GetWINRARPath = ""
If KeyFound = True Then GetWINRARPath = GetWINRARPath & "\WINRAR"
End Function

Sub compress(ByVal SOURCE As String, ByVal TARGET As String)
If Not GetWINRARPath = "" And Dir(SOURCE) > "" Then Shell GetWINRARPath & " a " & TARGET & " " & SOURCE, vbHide
End Sub

Sub decompress(ByVal SOURCE As String, ByVal TARGET As String)
If Not GetWINRARPath = "" And Dir(SOURCE) > "" Then Shell GetWINRARPath & " x " & TARGET & " " & SOURCE, vbHide
End Sub


Private Sub Command2_Click()
decompress "C:\x.bmp", "c:\3.bmp" ' 将"C:\x.bmp",解压缩为"c:\3.bmp" 
End Sub