[ { "Id": "209125", "ThreadId": "61643", "Html": "

Cant seem to find any examples on this, I can successfully add all the files into the treeview no problem. Its the child nodes im having issues with is there any way to create a working treeview from the archive using this library or a combination of this library and VB.NET objects?

\r\n

So far i have tried this ...

\r\n

\r\n

\r\n
    Public Sub LoadFolderTree(ByVal path As String)\r\n        Dim basenode As System.Windows.Forms.TreeNode\r\n\r\n        Using zip As ZipFile = ZipFile.Read(path)\r\n            Dim e As ZipEntry\r\n\r\n            'set main file as master node'\r\n            Dim Index As Integer = path.LastIndexOf("\\")\r\n            Dim masterpath As String = path.Substring(Index + 1, path.Length - Index - 1)\r\n            Dim master As TreeNode = MyTreeView.Nodes.Add(masterpath)\r\n\r\n            Try\r\n                For Each e In zip\r\n                    With master\r\n                        If e.IsDirectory Then\r\n                            basenode = .Nodes.Add(e.FileName.ToString)\r\n                            basenode.Tag = e.FileName.ToString\r\n\r\n                            For Each subE In e.FileName\r\n                                ' need to figure out how to go through each file/folder '\r\n                                ' and append to the respective parent node '\r\n                            Next\r\n                        Else\r\n                            basenode = .Nodes.Add(e.FileName.ToString)\r\n                            basenode.Tag = e.FileName.ToString\r\n                        End If\r\n\r\n                        ' auto expand the main node '\r\n                        .Expand()\r\n                    End With\r\n                Next\r\n            Catch excep As Exception\r\n                MsgBox(excep.Message)\r\n            End Try\r\n\r\n        End Using\r\n    End Sub\r\n
which is activated with this sub ..

    Private Sub findSource_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles findSource.Click\r\n        Dim fdlg As OpenFileDialog = New OpenFileDialog()\r\n\r\n        fdlg.Title = "Browse for a file"\r\n        fdlg.InitialDirectory = "c:\\"\r\n        fdlg.FilterIndex = 2\r\n        fdlg.RestoreDirectory = True\r\n        If fdlg.ShowDialog() = DialogResult.OK Then\r\n            sourceFilePath.Text = fdlg.FileName\r\n            LoadFolderTree(fdlg.FileName)\r\n        End If\r\n    End Sub\r\n
\r\n
\r\n
\r\n
\r\nNow i know how to do this type of thing with a regular directory structure, but being a ZIP archive is this even possible? My normal folder structure method fails because it tries to locate the sub folders in the main folder which in the archive do not physically exist to VB.NET at least i don't think. Thanks for any tips that can be uncovered!

\r\n

 

", "PostedDate": "2009-07-06T13:23:10.783-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "209199", "ThreadId": "61643", "Html": "

Here's the thing - in a zip archive a "directory" is not really a container per se.   If a zipfile contains "a directory", it is just a zero-length entry that is marked as a directory.  But it is just fine if a directory entry does not exist in the zip archive.  The files in an archive, once extracted, will appear under the corresponding filesystem directory as specified in the filename for that particular entry.  This is what I mean by "a directory isn't really a container."   The only reason to include a directory entry explicitly into a zip archive is in the case where there are no files that would appear in that directory, and still you want to ensure that when unpacked, the filesystem contains an empty directory by that name. Does that make sense?  And the result is that there are typically no directory entries in a zip archive, even if there are pathnames for the entries.

\r\n

If you want to produce a treeview, you will have to map between the zip file "model' of seeing things, where there are no directories, and the treeview model. 

\r\n

In your code, you test IsDirectory(), which would make sense if every path segment were represented with a directory, just as with a filesystem.  But that's not always the case in a zip file.  So I think you need to recurse on each path segment for each entry, and test if there is a node in your treeview corresponding to that partial path. If it does not exist, create it.  You may find a zipfile that contains /a/b/c/d/file.txt, and you will have to create 4 nodes in the treeview as you work through the path.  Finally you add the full FileName itself to the most deeply nested directory node.

\r\n

Here's one way to do it:

\r\n
    Private Sub PopulateTreeView()\r\n        Try\r\n            zip = ZipFile.Read(Me.TextBox1.Text)\r\n\r\n            Me.TreeView1.Nodes.Clear()\r\n            For Each e As ZipEntry In zip\r\n                AddTreeNode(e.FileName)\r\n            Next\r\n\r\n        Catch ex As Exception\r\n            MessageBox.Show("Exception: " + ex.ToString(), "Exception during zip processing", _\r\n                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)\r\n\r\n        Finally\r\n            If Not (zip Is Nothing) Then\r\n                zip.Dispose()\r\n            End If\r\n\r\n        End Try\r\n    End Sub\r\n\r\n    Private Function AddTreeNode(ByVal name As String) As TreeNode\r\n        ' If the entry is a directory, it ends in a slash.  Let's trim it.\r\n        If (name.EndsWith("/")) Then\r\n            name = name.Substring(0, name.Length - 1)\r\n        End If\r\n        Dim node As TreeNode = FindNodeForTag(name, Me.TreeView1.Nodes)\r\n        If Not (node Is Nothing) Then\r\n            Return node\r\n        End If\r\n        ' nodeCollection = where to add the current node.\r\n        Dim nodeCollection As TreeNodeCollection\r\n        Dim parent As String = Path.GetDirectoryName(name)\r\n        If (parent = "") Then\r\n            ' we will add the named node to the root\r\n            nodeCollection = Me.TreeView1.Nodes\r\n        Else\r\n            ' First add a parent node, and then we will \r\n            ' add the named node as a sub-node of that parent.\r\n            ' NB: must replace backslash with fwd-slash.  The names \r\n            ' in a zip file use fwd slash.  The paths returned from \r\n            ' Path.GetDirectoryName use backslash. \r\n            nodeCollection = AddTreeNode(parent.Replace("\\", "/")).Nodes\r\n        End If\r\n        ' the node to be added\r\n        node = New TreeNode\r\n        ' the text that is displayed: just the last part of the path\r\n        node.Text = Path.GetFileName(name)\r\n        ' we use the tag to find nodes, so use the full path here\r\n        node.Tag = name\r\n        ' add it\r\n        nodeCollection.Add(node)\r\n        ' return the node just added \r\n        Return node\r\n    End Function\r\n\r\n    ' return the node with a tag matching the given name\r\n    Private Function FindNodeForTag(ByVal name As String, _\r\n                                    ByRef nodes As TreeNodeCollection) As TreeNode\r\n        For Each node As TreeNode In nodes\r\n            If (name = node.Tag) Then\r\n                Return node\r\n            ElseIf (name.StartsWith(node.Tag + "/")) Then\r\n                Return FindNodeForTag(name, node.Nodes)\r\n            End If\r\n        Next\r\n        Return Nothing\r\n    End Function\r\n
\r\n

This probably isn't the most efficient way to do it. I'm not a WinForms genius and VB is not my thing. But this works.

\r\n

 

", "PostedDate": "2009-07-06T16:17:24.01-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "209471", "ThreadId": "61643", "Html": "

Great that is exactly what i was trying to do. Executiion time is minimal actually. Little cleanup that VS2008 didnt care for but very little ... if anyone is intrested his example works ... but cleaned up to produce no errors in VS2008 is this ...

\r\n

\r\n

\r\n
    Private Sub PopulateTreeView(ByVal zipSource As String)\r\n        Using zip As ZipFile = ZipFile.Read(zipSource)\r\n\r\n            Try\r\n                MyTreeView.Nodes.Clear()\r\n\r\n                For Each e As ZipEntry In zip\r\n                    AddTreeNode(e.FileName)\r\n                Next\r\n\r\n            Catch ex As Exception\r\n                MessageBox.Show("Exception: " + ex.ToString(), "Exception during zip processing", _\r\n                                MessageBoxButtons.OK, MessageBoxIcon.Exclamation)\r\n\r\n            Finally\r\n                If zip Is Nothing Then\r\n                    zip.Dispose()\r\n                End If\r\n\r\n            End Try\r\n        End Using\r\n    End Sub\r\n\r\n    Private Function AddTreeNode(ByVal name As String) As TreeNode\r\n        ' If the entry is a directory, it ends in a slash.  Let's trim it.\r\n        If name.EndsWith("/") Then\r\n            name = name.Substring(0, name.Length - 1)\r\n        End If\r\n\r\n        Dim node As TreeNode = FindNodeForTag(name, MyTreeView.Nodes)\r\n        If Not node Is Nothing Then\r\n            Return node\r\n        End If\r\n\r\n        ' nodeCollection = where to add the current node.\r\n        Dim nodeCollection As TreeNodeCollection\r\n        Dim parent As String = Path.GetDirectoryName(name)\r\n        If parent = "" Then\r\n            ' we will add the named node to the root\r\n            nodeCollection = MyTreeView.Nodes\r\n        Else\r\n            ' First add a parent node, and then we will \r\n            ' add the named node as a sub-node of that parent.\r\n            ' NB: must replace backslash with fwd-slash.  The names \r\n            ' in a zip file use fwd slash.  The paths returned from \r\n            ' Path.GetDirectoryName use backslash. \r\n            nodeCollection = AddTreeNode(parent.Replace("\\", "/")).Nodes\r\n        End If\r\n\r\n        ' the node to be added\r\n        node = New TreeNode\r\n\r\n        ' the text that is displayed: just the last part of the path\r\n        node.Text = Path.GetFileName(name)\r\n\r\n        ' we use the tag to find nodes, so use the full path here\r\n        node.Tag = name\r\n\r\n        ' add it\r\n        nodeCollection.Add(node)\r\n\r\n        ' return the node just added \r\n        Return node\r\n    End Function\r\n\r\n    ' return the node with a tag matching the given name\r\n    Private Function FindNodeForTag(ByVal name As String, _\r\n                                    ByRef nodes As TreeNodeCollection) As TreeNode\r\n        For Each node As TreeNode In nodes\r\n            If name = node.Tag Then\r\n                Return node\r\n            ElseIf name.StartsWith(node.Tag + "/") Then\r\n                Return FindNodeForTag(name, node.Nodes)\r\n            End If\r\n        Next\r\n        Return Nothing\r\n    End Function\r\n
and this is called upon using

    Private Sub findSource_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles findSource.Click\r\n        Dim fdlg As OpenFileDialog = New OpenFileDialog()\r\n\r\n        fdlg.Title = "Browse for a Archive File"\r\n        fdlg.InitialDirectory = "c:\\"\r\n        fdlg.FilterIndex = 2\r\n        fdlg.RestoreDirectory = True\r\n        If fdlg.ShowDialog() = DialogResult.OK Then\r\n            sourceFilePath.Text = fdlg.FileName\r\n            PopulateTreeView(fdlg.FileName)\r\n        End If\r\n    End Sub\r\n
\r\n
\r\nThanks a lot for the help!
\r\n
\r\n

", "PostedDate": "2009-07-07T06:44:41.51-07:00", "UserRole": null, "MarkedAsAnswerDate": null }, { "Id": "209503", "ThreadId": "61643", "Html": "

No problem.

\r\n

Here's what it looks like:

\r\n

\"\"

\r\n

and here's a Visual Studio project that you can download and run - uses VS2008. It's very basic, it shows how to populate a TreeView with the contents of a ZipFile.

", "PostedDate": "2009-07-07T07:54:05.36-07:00", "UserRole": null, "MarkedAsAnswerDate": null } ]