Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then


            Dim parentNode As New EO.Web.TreeNode("c:\")
            parentNode.Value = "c:\"

            Explorer.TopGroup.Nodes.Add(parentNode)

        End If
End Sub
    
Private Sub Explorer_ItemPopulate(ByVal sender As Object, ByVal e As EO.Web.NavigationItemEventArgs) Handles Explorer.ItemPopulate
        'Get the parent node
        Dim parentNode As EO.Web.TreeNode = CType(e.NavigationItem, EO.Web.TreeNode)

        'Get the root path
        Dim parentDir As String = "c:\"

        'Combine the root path with the node's Value property,
        'in which we stores the relative path to the root
        If parentNode.Value Is Nothing Then
            parentNode.Value = String.Empty
        End If
        parentDir = Path.Combine(parentDir, parentNode.Value)

        'Find all the directories
        Dim dirs As String() = Directory.GetDirectories(parentDir)
        Dim dir As String
        For Each dir In dirs
            Dim dirName As String = Path.GetFileName(dir)
            Dim dirNode As New EO.Web.TreeNode(dirName)

            'Directories can have child items. So at here we
            'store the path associated with this directory to
            'its Value property and set PopulateOnDemand to true
            dirNode.Value = Path.Combine(parentNode.Value, dir)
            dirNode.PopulateOnDemand = True

            parentNode.SubGroup.Nodes.Add(dirNode)
        Next dir

        'Find all files
        Dim files As String() = Directory.GetFiles(parentDir)
        Dim file As String
        For Each file In files
            Dim fileName As String = Path.GetFileName(file)
            Dim fileNode As New EO.Web.TreeNode(fileName)
            parentNode.SubGroup.Nodes.Add(fileNode)
        Next file
    End Sub 'TreeView1_ItemPopulate