LOOP trought cildren nodes 1

[sal21]

Private Sub Command3_Click()

    Dim myChild As Node
    Dim myNode As Node
    Dim myFile As String
    Dim K As Integer, X As Integer
    Dim NDX As Node

    If Dir("C:\TABULATI\TREEVIEW_" & ANNO & ".csv") <> "" Then
        Kill "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    End If

    myFile = "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    Close #1
    Open myFile For Output As #1

    For Each myNode In TreeView1.Nodes

        If myNode.Children > 0 And Mid(myNode.Text, 3, 1) = "-" Then
        
            Print #1, myNode.Text

        End If

    Next

    Close #1

    Me.Text1.SetFocus

End Sub

Now how to loop each day in month?

attached my treeview

 

[strongm]

Assuming I've understood your question correctly, this minor change of youre C ommand3 code should illustrate one solution:

Private Sub Command3_Click()

    Dim myChild As Node
    Dim myNode As Node
    Dim myFile As String
    Dim K As Integer, X As Integer
    Dim NDX As Node

    If Dir("C:\TABULATI\TREEVIEW_" & ANNO & ".csv") <> "" Then
        Kill "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    End If

    myFile = "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    Close #1
    Open myFile For Output As #1

    For Each myNode In TreeView1.Nodes

        If myNode.Children > 0 And Mid(myNode.Text, 3, 1) = "-" Then
        
            Print #1, myNode.Text
            
 [b][COLOR=red]           Set myNode = myNode.Child
            Do Until myNode Is Nothing
                Debug.Print myNode
                Set myNode = myNode.Next
            Loop[/color][/b]

        End If

    Next

    Close #1

    Me.Text1.SetFocus

End Sub

 

[sal21]

Strongm, TKS!!!!

You read in my mind!

Work perfect!

 

[sal21]

OPS....

Why the last line in .csv have a blank row/line?

I need to print in csv also until the row 377, 378 is a blank row!

my last code:

Private Sub Command3_Click()

    Dim myChild As Node
    Dim myNode As Node
    Dim myFile As String
    Dim K As Integer, X As Integer
    Dim NDX As Node

    If Dir("C:\TABULATI\TREEVIEW_" & ANNO & ".csv") <> "" Then
        Kill "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    End If

    myFile = "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    Close #1
    Open myFile For Output As #1

    For Each myNode In TreeView1.Nodes

        If myNode.Children > 0 And Mid(myNode.Text, 3, 1) = "-" Then
        
            Print #1, myNode.Text
            
            Set myNode = myNode.Child
            Do Until myNode Is Nothing
                 Print #1, Tab, myNode
                Set myNode = myNode.Next
            Loop

        End If

    Next

    Close #1

    Me.Text1.SetFocus

End Sub

 

[strongm]

>Why the last line in .csv have a blank row/line?

We've explained this to you before: thread222-1810582

And here's the very minor change to your code to get the result you seem to want.

Private Sub Command3_Click()

    Dim myChild As Node
    Dim myNode As Node
    Dim myFile As String
    Dim K As Integer, X As Integer
    Dim NDX As Node

    If Dir("C:\TABULATI\TREEVIEW_" & ANNO & ".csv") <> "" Then
        Kill "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    End If

    myFile = "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    Close #1
    Open myFile For Output As #1

    For Each myNode In TreeView1.Nodes

        If myNode.Children > 0 And Mid(myNode.Text, 3, 1) = "-" Then
        
            Print #1, myNode.Text
            
            Set myNode = myNode.Child
            Do Until myNode[COLOR=red].Next[/color] Is Nothing
                 Print #1, Tab, myNode
                Set myNode = myNode.Next
            Loop
            [COLOR=red]Print #1, Tab, myNode;[/color]
        End If

    Next

    Close #1

    Me.Text1.SetFocus

End Sub

 

[sal21]

TKS BRO!

but the position of months are wrong(!?)

 

[strongm]

Might I suggest that you put in a request to Site management to get your role changed from Programmer to something more appropriate, as it continues to seem as if you don't actually make any programming effort of your own.

Private Sub Command3_Click()

    Dim myChild As Node
    Dim myNode As Node
    Dim myFile As String
    Dim K As Integer, X As Integer
    Dim NDX As Node
    [COLOR=red]Dim firstmonth As Boolean[/color]

    If Dir("C:\TABULATI\TREEVIEW_" & ANNO & ".csv") <> "" Then
        Kill "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    End If

    myFile = "C:\TABULATI\TREEVIEW_" & ANNO & ".csv"
    Close #1
    Open myFile For Output As #1

[COLOR=red]    firstmonth = True[/color]
    For Each myNode In TreeView1.Nodes

        If myNode.Children > 0 And Mid(myNode.Text, 3, 1) = "-" Then
            
            [COLOR=red]If Not firstmonth Then
                Print #1
            Else
                firstmonth = False
            End If[/color]
            Print #1, myNode.Text
            
            Set myNode = myNode.Child
            Do Until myNode.Next Is Nothing
                 Print #1, Tab, myNode
                Set myNode = myNode.Next
            Loop
            Print #1, Tab, myNode;
        End If

    Next

    Close #1

    Me.Text1.SetFocus

End Sub

 

[sal21]

now work perfect!

but forgotten, the comma, in:

Print #1,