visual basic 2008 treeview node exporting to a text file - visual-studio

Question

Private Sub btnCreateTreeData(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreateTreeData.Click
'create buffer for storing string data
Dim buffer As New System.Text.StringBuilder
'loop through each of the treeview's root nodes
For Each rootNode As TreeNode In yourTreeView.Nodes
'call recursive function
BuildTreeString(rootNode, buffer)
Next
'write data to file
IO.File.WriteAllText("C:\treeTest.txt", buffer.ToString)
End Sub
file create successful but no tree node there

Answer 1

Here I get tree nods successfully
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
For Each nd As TreeNode In TreeView1.Nodes
If nd.Nodes.Count > 0 Then 'it has children, lets look at them
For Each ndChild As TreeNode In nd.Nodes
If ndChild.Nodes.Count > 0 Then 'it has children, lets look at them
Dim outputText As String = String.Concat(ndChild.Text, " ", ndChild.Nodes.Count)
For Each ndSubChild As TreeNode In ndChild.Nodes
outputText = String.Concat(outputText, " ", ndSubChild.Text)
TextBox4.Text += vbTab & outputText & vbNewLine
Next
Debug.Print(outputText)
'TextBox4.Text += vbTab & vbTab & vbTab & vbTab & outputText
End If
Next
End If
Next
End Sub

Answer 2

I can save it to a text file as :
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*"
Save.CheckPathExists = True
Save.Title = "Save File"
Save.FileName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Treee Data"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(TextBox4.Text)
myStreamWriter.Flush()
Catch ex As Exception
End Try
Dim ProcessProperties As New ProcessStartInfo
ProcessProperties.FileName = "notepad"
ProcessProperties.Arguments = Save.FileName
ProcessProperties.WindowStyle = ProcessWindowStyle.Maximized
Dim myProcess As Process = Process.Start(ProcessProperties)