VB opslaan (niet als)

[pro pizza]

Hallo,

    Private Sub OpslaanAlsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanAlsToolStripMenuItem.Click
        If saveDialog.ShowDialog() = DialogResult.OK Then
            Dim myStreamWriter As New StreamWriter(saveDialog.FileName)
            If Not (myStreamWriter Is Nothing) Then
                'Then use the TextBox to get the contents.
                myStreamWriter.Write(RichTextBox.Text)
                'Close the StreamWriter - it uses resources
                myStreamWriter.Close()
                Me.Text = saveDialog.FileName
            End If
        End If
    End Sub

Ik gebruik deze code voor opslaan als..
maar ik wil nu ook dat er gewoon opgeslagen kan worden zonder dat er een dialog naar voren komt, hoe doe ik dat?

Mvg, Ruben.

 

[That Guy]

hetzelfde, maar dan zonder je dialog-code erbij?


voor het geval dit voor een soort text-editor is en je net zoals [notepad/word/roep het] er een 'opslaan als' en 'opslaan' knop is: maak een globale variabele aan waarin je de value van de 'opslaan-als' path in zet (na "Me.Text = saveDialog.FileName" zet je dan "myGlobVar = saveDialog.FileName" oid)

 

[pro pizza]

Ja

Dim myStreamWriter As New StreamWriter(saveDialog.FileName)
            If Not (myStreamWriter Is Nothing) Then
                'Then use the TextBox to get the contents.
                myStreamWriter.Write(RichTextBox.Text)
                'Close the StreamWriter - it uses resources
                myStreamWriter.Close()
                Me.Text = saveDialog.FileName
            End If

En het werkt..
Bedankt:thumb: