Listbox Saving Issue

[lacobus]

I'm getting errors in this code! Why? Visual Basic 2010

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        SaveFileDialog1.InitialDirectory = "C:\"
        SaveFileDialog1.FileName = "Save As..."
        SaveFileDialog1.Filter = ("Text Files | *.txt")
        SaveFileDialog1.ShowDialog()

        Dim w As New IO.StreamWriter(SaveFileDialog1.FileName)
        Dim 1 As Integer
        For i = 0 To ListBox1.Items.Count = 1
            w.WriteLine(ListBox1.Items.Item(i))

        Next
        w.Close()





    End Sub
End Class

[jmcilhinney]

For a start, you should not be setting the FileName of the dialogue to "Save As...". That might be appropriate for the Title perhaps.

I don't know that that will cause an error though. Maybe if you were to actually explain the errors to us. Every one has an error message so why keep those a secret from the people whom you want to help you fix them? Are you talking about compilation errors or run time errors? What lines do the errors occur on? Please provide a FULL and CLEAR description of the problem.

[lacobus]

I aplogize, I am getting an error on the "1" and the "i".

[Arve K.]

I'm getting errors in this code! Why? Visual Basic 2010

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        SaveFileDialog1.InitialDirectory = "C:\"
        SaveFileDialog1.FileName = "Save As..."
        SaveFileDialog1.Filter = ("Text Files | *.txt")
        SaveFileDialog1.ShowDialog()

        Dim w As New IO.StreamWriter(SaveFileDialog1.FileName)
        Dim 1 As Integer
        For i = 0 To ListBox1.Items.Count = 1
            w.WriteLine(ListBox1.Items.Item(i))

        Next
        w.Close()

    End Sub
End Class

You can't use a number for an identifier. Try something like Dim i as Integer instead.

For i As Integer = 0 To ListBox1.Items.Count
...

[.paul.]

try this:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    SaveFileDialog1.InitialDirectory = "C:\"
    SaveFileDialog1.Title = "Save As..."
    SaveFileDialog1.Filter = "Text Files TXT (*.txt)| *.txt"
    SaveFileDialog1.FilterIndex = 0

    If SaveFileDialog1.ShowDialog() = dialogresult.ok Then
        IO.File.WriteAllLines(SaveFileDialog1.FileName, ListBox1.Items.cast(Of String).toarray)
    End If

End Sub