Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Dim Path_1 = "C:\Users\Sascha\Documents"
        Dim Path As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.MyDocuments)
 
        CompressFolder_2(Path)
 
    End Sub
 
    Private Sub CompressFolder_2(path As String)
 
        Dim files As String() = Directory.GetFiles(path)
 
        For Each filename As String In files
            Dim fi As New FileInfo(filename)
        Next
 
        Dim folders As String() = Directory.GetDirectories(path)
        For Each folder As String In folders
            CompressFolder_2(folder)
        Next
 
    End Sub