Save Multiple Lists [RESOLVED]

[Ricky1]

ok i have a number of lists on my form and i only wana have one save button that will save all the lists in the same text file.

Dim x As Integer
For x = 0 To List1.ListCount - 1
  Open "C:/List.txt" For Append As #1
    Print #1, List1.List(x)
  Close #1
Next x

i have this which is ok but im not sure how to make it for all my lists. I have 7 lists all together. Any help welcomed. Thank you.

[MartinLiss]

Dim ctl As Control
Dim x As Integer
 
Open "C:/List.txt" For Append As #1
 
For Each ctl In Controls
    If Typeof ctl Is Listbox Then
        For x = 0 To ctl.ListCount - 1
            Print #1, ctl.List(x)
        Next x
    End If
Next
 
Close #1

[Ricky1]

thank you martinless do you have any idea how i would make the text file save in the same folder that the program was in ??

[Ricky1]

also wot im i doing wrong with this code?

Private Sub Label9_Click()
 
If Form1.Frame1.Visible = True Then
    On Error Resume Next
    With CommonDialog1
    .CancelError = True
    .Filter = "Text Files (*.txt)|*.txt|"
    .ShowOpen
    End With
    Call SaveLoadListbox(List1, CommonDialog1.FileName, "load")
End If
 
If Form2.Frame1.Visible = True Then
    On Error Resume Next
    With CommonDialog1
    .CancelError = True
    .Filter = "Text Files (*.txt)|*.txt|"
    .ShowOpen
    End With
    Call SaveLoadListbox(List2, CommonDialog1.FileName, "load")
End If
 
End Sub

something to do with my If's because when i run the program and click frame1 and load it makes me choose the list twice. Probably because i got this code messed up but i can't see where.

[Ricky1]

lmao i c wot i did wrong above. but does any1 have any idea how to edit "MartinLiss" code above to make the text file same in the same folder as the program ??

[MartinLiss]

Open App.Path & "\List.txt" For Append As #1