Dim NewNode As TreeNode
 
        Try
            For Each strSubFolder As String In Directory.GetDirectories( _
              Application.StartupPath & "\PDF")
                NewNode = New TreeNode(LastPart(strSubFolder))
                tvwFolderView.Nodes.Add(NewNode)
                CreatePlus(NewNode)
            Next
 
 
        Catch ex As Exception
        End Try