Listbox opslaan zonder openfiledialog

[bonnowagt]

Ik heb de onderstaande code voor het opslaan van een listbox.

 Try
            Dim sfd As New SaveFileDialog With {
                           .AddExtension = True,
                           .Filter = "Back-upLijst (*.cbc)|*.cbc",
                           .FilterIndex = 0,
                        .RestoreDirectory = True,
                           .InitialDirectory = "C:\Collector Back-up Center"}
         If sfd.ShowDialog = System.Windows.Forms.DialogResult.OK Then
            sfd.FileName = "yesterday "
   IO.File.WriteAllLines(sfd.FileName, (From item In ListBox1.Items.Cast(Of String)()).ToArray)
                My.Settings.Save()
             Else
exit sub
           End If

Dit werkt prima maar ik zou dus deze lijst willen opslaan met een vooraf bepaalde naam, dus zonder filedialog


De lijst wordt als volgt bijv. benoemd: label1.text= "backup28-1-2016"

Hoe kan ik dit precies doen. Ik het volgende geprobeerd maar werkte niet.

  label1.text= "backup28-1-2016"
   IO.File.WriteAllLines label1.text, (From item In ListBox1.Items.Cast(Of String)()).ToArray)
                My.Settings.Save()

 

[OctaFish]

Een label heeft volgens mij geen text eigenschap (het is geen tekstveld) maar een Caption.

 

[JoZ1]

^ in .NET wel hoor.

Zoiets zou ik doen (met haakje openen dus):
[cpp]IO.File.WriteAllLines(Label1.Text, (From item In ListBox1.Items.Cast(Of String)()).ToArray)
My.Settings.Save()[/cpp]