Try

Code:
        Dim dirs As DirectoryInfo() = di.GetDirectories()
        Dim diNext As DirectoryInfo
        For Each diNext In dirs
            Dim C As TreeNode = TreeView1.Nodes.Add(diNext.Name)
            C.Tag = diNext.FullName
        Next