Asignar nombre a archivo comprimido.

[alexg88]

Tienes dos formas de hacerlo.

1. Recorrer recursivamente los directorios.
2. Usando la opción SearchOption.AllDirectories del método EnumerateFiles de la clase Directory

Ejemplo de lo segundo:

Código VB:

'De esta manera obtienes todos los ficheros del directorio y subdirectorios
 Dim txtFiles = Directory.EnumerateFiles(sourceDirectory, "*", SearchOption.AllDirectories)
 
            For Each currentFile As String In txtFiles
               'Aquí haces lo que quieras con cada fichero               
            Next
 

Échale un vistazo: http://msdn.microsoft.com/es-es/library/dd383571.aspx