Friend Sub loadfiles()

        Dim tr As TableRow
        Dim tc As TableCell
        Dim link As HyperLink

        Dim m() As String = Directory.GetFiles(Server.MapPath("data"))

        For Each mm As String In m

            link = New HyperLink

            With link
                .Text = Path.GetFileName(mm)
                .NavigateUrl = String.Concat("data/", Path.GetFileName(mm))
                .Enabled = True
                .ID = Path.GetFileName(mm)
                .EnableTheming = True
                .EnableViewState = True
                .Visible = True
            End With

            tc = New TableCell
            tc.Controls.Add(link)
            tc.Controls.Add(New LiteralControl("<br>"))

            tr = New TableRow
            tr.Cells.Add(tc)

            Table1.Rows.Add(tr)

         Next

   End Sub

Dim m() As String = Directory.GetFiles(path.Combine(Server.MapPath("data"), *имя поддиректории*)

Private Sub directorybrowse()

        Table1.Rows.Clear()

        Dim temp As HttpCookie = Request.Cookies("temppath")
        Dim temppath As String = temp.Value 'путь к текущей дирректории
        Dim link As HyperLink

        Dim DI As New DirectoryInfo(temppath)
        Dim iteminfo() As FileSystemInfo = DI.GetFileSystemInfos
        For Each item As FileSystemInfo In iteminfo

            If item.Attributes And FileAttributes.Directory Then

                link = New HyperLink
                With link
                    .Text = item.Name
                    '.NavigateUrl = "data" & "\" & User.Identity.Name & "\" & item.Name
                    'нужен не навигатеURL а создание обработчика для клика с записью в cookie("temppath") нового значения дирректории - поддиректории (какой контрол можно использовать????)
                    .Enabled = True
                    .EnableViewState = True
                    .Visible = True
                    .ID = item.Name
                End With

                enterlinkintable(link)

            Else

                link = New HyperLink
                With link
                    .Text = item.Name
                    .NavigateUrl = "data" & "\" & User.Identity.Name & "\" & item.Name
                    ' заметка для себя - надо продумать как создать путь из переменных (без указания реальных папок)
                    .Enabled = True
                    .EnableViewState = True
                    .Visible = True
                    .ID = item.Name
                End With

                enterlinkintable(link)

            End If
        Next

    End Sub

    Private Sub enterlinkintable(ByVal link As HyperLink)
        Dim tr As New TableRow
        Dim tc As New TableCell

        tc.Controls.Add(link)
        tc.Controls.Add(New LiteralControl("<br>"))

        tr.Cells.Add(tc)
        Table1.Rows.Add(tr)
    End Sub