Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim path As String = System.IO.Directory.GetCurrentDirectory + "\Документы"
TreeView1.Nodes.Add(System.IO.Path.GetFileName(path))
Search(path, TreeView1.Nodes(0))
TreeView1.Nodes(0).Expand()
End Sub
Sub Search(ByVal Fol As String, ByVal Node As TreeNode)
For Each S As String In System.IO.Directory.GetDirectories(Fol, "*.*", SearchOption.TopDirectoryOnly)
Dim TmpNode As New TreeNode(System.IO.Path.GetFileName(S))
TmpNode.ImageIndex = 0
Node.Nodes.Add(TmpNode)
Try
Search(S, TmpNode)
Catch ex As Exception
End Try
Next
End Sub
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim Files() As String = System.IO.Directory.GetFiles(System.IO.Path.GetDirectoryName(path) & "\" & e.Node.FullPath, "*.*", SearchOption.TopDirectoryOnly)
ListView1.Items.Clear()
For Each File As String In Files
ListView1.Items.Add(System.IO.Path.GetFileName(File)).Tag = File
ListView1.Items(ListView1.Items.Count - 1).ImageIndex = 1
Next
End Sub
Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
If ListView1.SelectedItems.Count > 0 Then
AxAcroPDF1.LoadFile(System.IO.Directory.GetCurrentDirectory + "\" + TreeView1.SelectedNode.FullPath + "\" + ListView1.SelectedItems(0).Text)
End If
End Sub