Best Save Code*Resolved-thanks*

[_Vb_N00bie_]

Ok im just curious what the best code is to save the contents in List1... I have code but people say it isnt that good and it is:

On Error GoTo Error_Killer
    With CD1
        .DialogTitle = "Save Log File"
        .Filter = "All Supported Types|*.log;*.crk;*.txt|"
        .ShowSave
    Dim Nbr As Long
    On Error Resume Next
    Open .FileName For Output As #1
    For Nbr = 0 To List1.ListCount - 1
        Print #1, List1.List(Nbr)
    Next Nbr
    Close #1
    End With
    Exit Sub
Error_Killer:
Exit Sub

So im just using a command button to save the contents of List1... So how would I change it to make it the best way possible? Really appreciate the help guys thanks

[techyspecy]

Originally posted by _Vb_N00bie_
Ok im just curious what the best code is to save the contents in List1... I have code but people say it isnt that good and it is:

On Error GoTo Error_Killer
    With CD1
        .DialogTitle = "Save Log File"
        .Filter = "All Supported Types|*.log;*.crk;*.txt|"
        .ShowSave
    Dim Nbr As Long
    On Error Resume Next
    Open .FileName For Output As #1
    For Nbr = 0 To List1.ListCount - 1
        Print #1, List1.List(Nbr)
    Next Nbr
    Close #1
    End With
    Exit Sub
Error_Killer:
Exit Sub

So im just using a command button to save the contents of List1... So how would I change it to make it the best way possible? Really appreciate the help guys thanks

This way is just fine and there is nothing wrong with it, whoever says that it's not good or something is a fool.

[_Vb_N00bie_]

Originally posted by techyspecy
This way is just fine and there is nothing wrong with it, whoever says that it's not good or something is a fool.

Hehe ok thanks man I appreciate your help very much have a good day