Stream Writer gebruiken bij SaveFileDialog

[jordidroj]

Heey,

Laatst was ik geholpen bij een andere vraag hoe ik mijn dingen kon safen in een .txt file.

Maar nu wil ik dat ik dit vanuit een saveFilaDialog kan doen.
Dat openen lukte nog wel, dat deed ik gewoon met openFileDialog.OpenFile
Maar wat moet ik achter saveFilaDialog plaatsen? Want als ik daar OpenFile zet dan gaat het natuurlijk fout

Dus ik heb nu dit:

Dim swWrite As New StreamWriter([B]SaveFileDialog.???[/B], False)
                For Each cbb As ComboBox In Persona1.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona2.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona3.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona4.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona5.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona6.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona7.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona8.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona9.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                For Each cbb As ComboBox In Persona10.Controls
                    swWrite.WriteLine(cbb.Name & "=" & cbb.SelectedItem)
                    swWrite.Flush()
                Next
                swWrite.Close()
                swWrite.Dispose()

                myStream.Close()

Gr. Jordi

 

[famlam]

        SaveFileDialog1.FileName = "Naamloos.txt"
        SaveFileDialog1.ShowDialog()
        If Not SaveFileDialog1.FileName.Contains("\") Then Exit Sub 'Op annuleren gedrukt in het savefiledialog

        Dim writer As IO.StreamWriter
        Dim bestand As String = SaveFileDialog1.FileName
        If IO.File.Exists(bestand) Then IO.File.Delete(bestand)
        If Not IO.Directory.Exists(bestand.Substring(0, bestand.LastIndexOf("\"))) Then
            MessageBox.Show("Kan niet opslaan", "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error) 'De doelmap bestaat niet
            Exit Sub
        End If

        writer = System.IO.File.AppendText(bestand)
        writer.WriteLine("De tekst die je wilt schrijven")
        writer.WriteLine("Denk eraan dat 'enters' in je tekst genegeerd worden!")
        writer.WriteLine("Om toch een enter toe te voegen moet je een nieuwe 'writer.writeline'-regel gebruiken")
        writer.WriteLine("Ook aangeraden is het om alle getallen etc. om te zetten naar strings d.m.v. X.ToString()")

        writer.Close()

Hier heb je waarschijnlijk wel wat aan... Komt (bijna) letterlijk uit een van mijn eigen programmaatjes en werkt voor zover ik weet foutloos...

 

[jordidroj]

Als ik precies je code kopieer en in mijn programa zet krijg ik bij het opslaan een error:

Het bestand: C:\Documents and Settings\...\Mis Ortolaciones\Naamloos.txt bestaat niet.
Ga na of je de bestandsnaam goed hebt geschreven.

Wat is er mis??

Gr. Jordi

 

[jordidroj]

Heey,

Ik heb mijn saveFileDialog verwijderd en daarna weer opnieuw aangemaakt en hij werkt!!

Heel erg bedankt


Gr. Jordi