Como zipar arquivos e pastas no vb 2008

[ramirobf]

Eu uso o seguinte código para copiar os arquivos:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

My.Computer.FileSystem.CopyDirectory("C:\Teste", "C:\Documents and Settings\User")

End Sub

Como eu faço para copiar a pasta (Teste) para pasta (User) e zipar esta pasta? (Eu tenho o Winrar e Winzip instalados no pc)

Obrigado.

[Graymalkin]

Talvez o Winrar e o Winzip até aceitem parâmetros por linha de comando, mas fica mais prático usar uma biblioteca que compacte os arquivos diretamente a partir do seu aplicativo, sem necessitar de aplicativos externos, não acha? Então, dê uma olhada nessa aqui: http://www.codeplex.com/DotNetZip

Abraços,

Graymalkin