[vb8] salva

[Pirelli72]

Fai la stessa cosa, con la differenza che al posto della proprietà :

SaveFileDialog1.FileName

utilizzerai una variabile in cui avrai memorizzato il percorso del file all'apertura o nel caso in cui sia stato creato apri invece il 'Salva con nome'

Esempio:

 Dim myPath As String

    Private Sub Salva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If myPath = String.Empty Then
            Button2_Click(Button2, New System.EventArgs)
        Else
            Dim ww As New IO.StreamWriter(myPath)
            ww.Write(TextBox1.Text)
            ww.Close()
        End If     
    End Sub

    Private Sub SalvaConNome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SaveFileDialog1.Filter = ("File di testo (*.txt)|*.txt")
        SaveFileDialog1.FileName = ""
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub
        Dim ww As New IO.StreamWriter(SaveFileDialog1.FileName)
        ww.Write(TextBox1.Text)
        ww.Close()
        myPath = SaveFileDialog1.FileName
    End Sub