Web (ASP.NET) เงือนไขสร้างโฟล์เดอร์เมนู กับดึง Crystal Report to Show

Imports System.IO
Imports System.Collections.Generic
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data
Imports System.Data.SqlClient


Public Class Site
Inherits System.Web.UI.MasterPage
Dim PathMSDS As String = "C:\Users\TiP-ToP\Documents\Visual Studio 2010\Projects\WebApplication1\WebApplication1\REPORT"
Dim myDirInfo As DirectoryInfo
Dim myFolderInfo As DirectoryInfo
Dim arrFolderInfo As Array
Dim _dirFile As String
Dim RootMaster = New Menu
Dim RootMenu = New MenuItem
Dim RootTmp = New MenuItem
Dim SubTmp = New MenuItem
Dim arrMenu() As String
Dim tarray As New ArrayList()
Dim SearchPath As String = "C:\MSDS\"

Sub BuildTree(ByVal s As String)
Dim strName As String = HttpContext.Current.User.Identity.Name.ToString
Dim rootdir = New DirectoryInfo("C:\Users\TiP-ToP\Documents\Visual Studio 2010\Projects\WebApplication1\WebApplication1\REPORT\" & s)

Dim rootnode = New TreeNode(rootdir.Name, rootdir.FullName)
Dim rootSub = New MenuItem(rootdir.Name, rootdir.FullName)
NavigationMenu.Items.Add(rootSub)
End Sub

Private Sub RecursiveSearch2(ByRef CurrentMenu, ByRef CurrentSubMenu)
'Dim dir As DirectoryInfo
Dim myFile As FileInfo
For Each myFile In CurrentMenu.GetFiles
Dim MenuFile As New MenuItem(Mid(myFile.Name, 1, Len(myFile.Name) - 4), myFile.FullName)
'MsgBox(Menu1.Items.Count)

MenuFile.NavigateUrl = "viewreport.aspx"

CurrentSubMenu.Childitems.Add(MenuFile)
Next
End Sub

Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack = False Then
BuildTree("Account")
BuildTree("Bill Collector")
BuildTree("Finance")
BuildTree("IT")
BuildTree("Marketing")
BuildTree("Purchase")
BuildTree("Terminal")

End If

End Sub

Private Sub DocumentMenu_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs)
MsgBox(sender.ToString & " " & e.Item.Value)


Protected Sub NavigationMenu_MenuItemClick(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.MenuEventArgs) Handles NavigationMenu.MenuItemClick

End Sub
End Class