Best Save Code*Resolved-thanks*

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:
VB Code:
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 :)

Re: Best Save Code

Quote:
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:

VB Code:

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. :D

Re: Re: Best Save Code

Quote:

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. :D

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