Salve a tutti,

il seguente codice esplora correttamente "Documenti\Biblioteca" a partire dalla direcorty corrente, ma non riesco ad aprire i files pdf che si trovano nelle foglie.

codice:
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.IO

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Data As New Data_Ora
        DataOra.Text = Data.RappresentaData("D")

        If Not Page.IsPostBack Then
            Dim percorso = Request.PhysicalApplicationPath() & "Documenti\Biblioteca"

            TreeView1.Nodes.Add(New TreeNode("Biblioteca"))
            ottieniSottoCartelle(percorso, TreeView1.Nodes(0))
            ottieniFiles(percorso, TreeView1.Nodes(0), 0)
        End If
    End Sub

    Public Sub ottieniSottoCartelle(ByVal path As String, ByVal node As TreeNode)
        Dim cartelle() As String = Directory.GetDirectories(path)
        If cartelle.Length <> 0 Then
            ' per ogni sottocartella, aggiungi al TreeView e
            ' chiama ricorsivamente te stesso
            Dim cartella As String
            For Each cartella In cartelle
                ' aggiungi il path relativo al TreeView
                Dim cartella_da_inserire As String
                cartella_da_inserire = cartella.Substring(cartella.LastIndexOf("\") + 1)
                Dim NewNode As TreeNode = New TreeNode(Mid(cartella_da_inserire, 4, Len(cartella_da_inserire)))
                node.ChildNodes.Add(NewNode)
                ' trova le sue sottocartelle
                ottieniSottoCartelle(cartella, NewNode)
                ' trova i file
                ottieniFiles(cartella, NewNode, 1)
                ' chiudi il nodo corrente
                NewNode.CollapseAll()
            Next
        End If
    End Sub

    Public Sub ottieniFiles(ByVal path As String, ByVal node As TreeNode, ByVal i As Integer)
        Dim files() As String = Directory.GetFiles(path)
        If files.Length = 0 And node.ChildNodes.Count = 0 Then
            Dim NewNode As TreeNode = New TreeNode("Directory is empty")
            node.ChildNodes.Add(NewNode)
        Else
            Dim file As String
            For Each file In files
                ' aggiungi il file al TreeView
                Dim file_da_inserire As String
                file_da_inserire = file.Substring(path.Length + i)
                Dim NewNode As TreeNode = New TreeNode(Mid(file_da_inserire, 10, Len(file_da_inserire) - 13))
                NewNode.ImageUrl = "Immagini/doc.gif"
                NewNode.Target = "_blank"
                NewNode.NavigateURL = file
                node.ChildNodes.Add(NewNode)
            Next
        End If
    End Sub

End Class
Qualcuno mi sā aiutare.

Grazie mille