Quote Originally Posted by minitech View Post
I think the modern way is

Code:
Dim path = "\ProgramData\Backup\Backup" & ListBox1.Items.Count & ".txt"

IO.File.WriteAllLines(path, ListBox1.Items)
Er, does that work? If not:

Code:
Dim path = "\ProgramData\Backup\Backup" & ListBox1.Items.Count & ".txt"

IO.File.WriteLines(path, From x In ListBox1.Items Select x.ToString())
or even:

Code:
Dim path = "\ProgramData\Backup\Backup" & ListBox1.Items.Count & ".txt"
IO.File.WriteAllLines(path, ListBox1.Items.Cast(Of Object).Select(Function(o) ListBox1.GetItemText(o)).ToArray)