1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected rootPath As String = "физический путь к каталогу на диске"
Protected Sub Page_PreLoad(ByVal sender As Object, ByVal e As System.EventArgs)
Dim rootNode As New TreeNode
With rootNode
.Text = ".."
.Value = ""
.SelectAction = TreeNodeSelectAction.None
End With
FillTreeNode(rootPath, rootNode)
TreeView1.Nodes.Add(rootNode)
End Sub
Protected Sub FillTreeNode(ByVal searchPath As String, ByRef parentNode As TreeNode)
Dim nnode As TreeNode
Dim iteminfo() As FileSystemInfo = New DirectoryInfo(searchPath).GetFileSystemInfos
For i As Integer = 0 To iteminfo.Length - 1
Dim item As FileSystemInfo = iteminfo.GetValue(i)
If item.Attributes = FileAttributes.Directory Then
nnode = New TreeNode
With nnode
.Text = item.Name
If New DirectoryInfo(item.FullName).GetFileSystemInfos.Length <> 0 Then
.PopulateOnDemand = True
.SelectAction = TreeNodeSelectAction.Expand
End If
End With
Else
nnode = New TreeNode
With nnode
.Text = item.Name & " (" & FormatNumber(New FileInfo(item.FullName).Length / 1024 , 0 ).ToString & " Kb)"
.ImageUrl = "~/images/icons/" + iconFromExtension(item.Extension)
If New FileInfo(item.FullName).Extension = ".aspx" Then
.NavigateUrl = "ReadFrom.aspx?fn=" + item.FullName.Substring(rootPath.Length, item.FullName.Length - rootPath.Length)
.Target = "content"
Else
.NavigateUrl = "Video.aspx?fn=" + item.FullName.Substring(rootPath.Length, item.FullName.Length - rootPath.Length)
End If
End With
End If
parentNode.ChildNodes.Add(nnode)
Next
End Sub
Protected Function iconFromExtension(ByVal ext As String) As String
Select Case ext.ToLower
Case ".wma"
Return "wmploc.ico"
Case ".wmv"
Return "wmploc.ico"
Case ".aspx"
Return "mshtml.ico"
Case Else
Return "notdefined.ico"
End Select
End Function
Protected Sub TreeView1_TreeNodePopulate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs)
FillTreeNode(rootPath & e.Node.ValuePath, e.Node)
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:TreeView ID="TreeView1" runat="server" CollapseImageToolTip=""
EnableTheming="False" ExpandDepth="1" ExpandImageToolTip="" ImageSet="XPFileExplorer" NodeIndent="15" OnTreeNodePopulate="TreeView1_TreeNodePopulate" PathSeparator="\">
<NodeStyle Font-Names="Tahoma" Font-Size="8pt" ForeColor="Black" HorizontalPadding="2px" NodeSpacing="0px" VerticalPadding="2px" />
<ParentNodeStyle Font-Bold="False" />
<HoverNodeStyle Font-Underline="False" BackColor="#E0E0E0" />
<SelectedNodeStyle BackColor="Gray" Font-Underline="False" HorizontalPadding="0px"
VerticalPadding="0px" ForeColor="White" />
<LeafNodeStyle Font-Underline="False" />
</asp:TreeView>
</div>
</form>
</body>
</html>
Вот так (с заточками под свой случай конечно) - может через неделю ещё чего придумаю - но пока, на мой взгляд, это самый оптимальный вариант...
P.S. нехватает только селекта для выбранной ноды, но есть мысли - буду
ДУМАТЬ
