
Originally Posted by
minitech
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)