Labels:monitor | web site OCR: Private Sub ddD irector .es (ByVal Node TreeNode Construct DirectoryInfo object 0f Node F111 llPath Dim Dir New Svstem. Io.DirectorvInfo (Node FullPath) Cons truct and reference DirectoryInfo object of the fo lders inside Node FullPath. Dim Folders System JO DirectoryInfo Dir GetDirectories Dim Integer For To Folders Length UCC new node tc Node for each folder found Node Nodes Add (Foldersi .Name Next End Sub AddDirectories BvVal array
