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