Visual Basic - CabAx 1.0

Hola... alguien trabajó con esta librería para comprimir archivos???.
Armé el código para que me comprima un conjunto de .txt a un único archivo .CAB almacenándolo

en el disco rígido.
Ahora necesito la opción de almacenado multivolumen en disquete. Alguien sabe como

hacerlo??????!!!!!. Se, de leer la data de la .dll, que se usa el evento OnGetNextCabinet que

toma como parámetro el valor de la propiedad DiskName del objeto CabZip pero no se como llevar

esto a código.
Si alguine puede ayudarme estaré muy agradecido. Un abrazo a todos. Ahhh adjunto el código

que uso para comprimir mis .txt a un .CAB que se almacena en el disco rígido.

Lucas

' código que uso para guardar en disco rígido

' compacto los archivos .txt logrados con el proceso anterior
Set cab = CreateObject("CabAx.CabZip") 'Crear el objeto
cab.PathName = App.Path & "\EXPORTA\MINI\"
cab.CabName = nombreARJ("MINI") & ".CAB"
cab.MaxSize = 1048576
cab.Create ' crear el archivo nombreARJ("MINI") & ".CAB"
fileName = Dir(App.Path & "\EXPORTA\MINI\", vbDirectory)
Do While fileName <> ""
If fileName <> "." And fileName <> ".." And ((InStr(fileName, ".txt") <> 0) Or

(InStr(fileName, ".ini") <> 0)) Then
fileActual = fileName
cab.AddFile App.Path & "\EXPORTA\MINI\" & fileActual, fileActual
End If
fileName = Dir
Loop

cab.Close ' cerrar el archivo CAB
Set cab = Nothing

Hola, solo tienes q poner lo siguiente

cab.PathName = "C:\" 'destino archivo cab
cab.CabName = "Micab%d.CAB" 'nombre variable (%d => Numero de CAB)
cab.DiskName = "Disco %d" 'nombre variable (%d => Numero de disco)
cab.MaxSize = 1348576 '1,37 megas cada archivo CAB

y a medida q vayas agregando archivos al cab cuando el cab llegue a los "1348576" la DLL creara otro cab automaticamente (Micab1.CAB, Micab2.CAB...)