[SOLVED] Save Treeview content into Text file

[beic]

Hi there,

Any idea to Save Treeview content into Text file?

I wish to be able to save it in this style:

[Caption 1]
- Element 1
- Element 2

[Caption 2]
- Element 1
- Element 2

[Caption 3]
- Element 1
- Element 2

Thank you!

[jdc2000]

Possibly useful link:

https://www.vbforums.com/showthread....w-to-Text-File

[beic]

Possibly useful link:
https://www.vbforums.com/showthread....w-to-Text-File

Hardly, it's for .NET

[jdc2000]

Try this one:

https://www.fortypoundhead.com/showc...sp?artid=48970

[beic]

Try this one:
https://www.fortypoundhead.com/showc...sp?artid=48970

I'm getting "Banned IP Address", can't load the actual page.

[jdc2000]

Link:

https://www.fortypoundhead.com/showcontent.asp?artid=48970

It sounds like your IP address is the banned one at that site. Try using a VPN to access it.

This is for VBA, but it should be similar to what you are looking for:

https://www.excelforum.com/excel-pro...-with-vba.html

http://vbcity.com/forums/t/6989.aspx

[beic]

It sounds like your IP address is the banned one at that site. Try using a VPN to access it.

http://vbcity.com/forums/t/6989.aspx

It seems too, weird think...

And big thank to you for helping me out here, I managed to get what I wish from the last link, but I can't figure out how to put new line after every new section.

Public Sub SaveTreeViewToFile(objTW As TreeView, stFilename As String)
 
 Dim mNode As node
 Dim mChild As node
 
 Dim frFile As Integer

 frFile = FreeFile

 Open stFilename For Output As #frFile
  For Each mNode In objTW.Nodes
     If mNode.Children > 0 Then
         Print #frFile, "[" & mNode.Text & "]"
         For Each mChild In objTW.Nodes
             If mChild.Children = 0 Then
                 If mChild.Parent.Key = mNode.Key Then
                     Print #frFile, "- " & mChild.Text
                 End If
             End If
         Next
     End If
  Next
 Close #frFile

 Exit Sub
End Sub

[jdc2000]

Public Sub SaveTreeViewToFile(objTW As TreeView, stFilename As String)
 
 Dim mNode As node
 Dim mChild As node
 
 Dim frFile As Integer

 frFile = FreeFile

 Open stFilename For Output As #frFile
  For Each mNode In objTW.Nodes
     If mNode.Children > 0 Then
         Print #frFile, "[" & mNode.Text & "]"
         For Each mChild In objTW.Nodes
             If mChild.Children = 0 Then
                 If mChild.Parent.Key = mNode.Key Then
                     Print #frFile, "- " & mChild.Text
                 End If
             End If
         Next
         Print #frFile, ""
     End If
  Next
 Close #frFile

 Exit Sub
End Sub

[beic]

Thank you so much! <3

[dz32]

Another to Save restore

https://github.com/dzzie/libs/tree/master/saveTreeView

[beic]

Another to Save restore

https://github.com/dzzie/libs/tree/master/saveTreeView

Just viewed it, it's great, but to much for my need, thank you!