forse ti basta copiare cio' che ti interessa in una cartella e poi tramite WMI (so xp/2000/2003) fare il comprimi che windows mette a disposizione.

in vb.net non ho idea, in vb6:
codice:
Set wmi = GetObject("winmgmts:\root\cimv2")
Set objs = wmi.ExecQuery("Select * from Win32_Directory where name = 'c:\\backup'")
For Each obj in objs
    obj.Compress
Next
per farlo funzionare in vb.net:
codice:
Dim wmiQuery As Object = Microsoft.VisualBasic.GetObject("winmgmts:\root\cimv2")

Dim objs As Object = wmiQuery.ExecQuery("Select * from Win32_Directory where name = 'c:\\backup'")

For Each obj As Object In objs
    obj.Compress()
Next
prova un po' se ti serve