Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles _
  MyBase.Load
 
        Dim d As New DirectoryInfo(My.Application.Info.DirectoryPath & _
          "\Templates\EXCH-40")
        For Each di As DirectoryInfo In d.GetDirectories
            Dim nNode As New TreeNode(di.Name)
            Me.TreeView.Nodes.Add(di.Name)
        Next
        For Each fi As FileInfo In d.GetFiles
            Dim fNode As New TreeNode(fi.Name)
            Me.TreeView.Nodes.Add(fi.Name)
        Next
End Sub