[VB.NET] Open en Save Dialog (Opgelost)

Public Class kladblokje
    Private Sub OpenenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenenToolStripMenuItem.Click
' er is op openen gedrukt
    End Sub

    Private Sub OpslaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
' Er is op opslaan gedrukt
    End Sub
End Class

Public Class kladblokje
    Private Sub OpenenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenenToolStripMenuItem.Click
' er is op openen gedrukt
    End Sub
 
    Private Sub OpslaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
' Er is op opslaan gedrukt
    End Sub
End Class

//dialogresult = kijken op welke knop er werd geklik
DialogResult dlg_res;
//hiermee haal je de gebruiker op van windows
string user = System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString();
string[] array = user.Split('\\');
int lengte = array.Length;
//hier komt uiteindelijk de naam in
string naam = array[1];
//taal van je systeem bepalen
string taal = Thread.CurrentThread.CurrentUICulture.ThreeLetterWindowsLanguageName.ToString();

//de initialDirectory is de standaard directory die hij
//voorstel om iets op te slaan
// die is anders in het nederlands dan in het engels
//vandaar dat de systeem-taal opgehaald word en hier
//een if-else gebruikt wordt
if (taal == "NLD")
{
    saveFileDialog1.InitialDirectory = "C:\\Documents and Settings\\" + naam + "\\Mijn Documenten";
}
if (taal == "ENU")
{
    saveFileDialog1.InitialDirectory = "C:\\Documents and Settings\\" + naam + "\\My Documents";
}

//kijken op welke knop er werd gedrukt
dlg_res = saveFileDialog1.ShowDialog();

//bij cancel, nies doen, bij mij staat hier wel iets
//ik heb heel de blok code in een functie staan vandaar
if (dlg_res == DialogResult.Cancel)
{
}

//filename is een string en de waarde is de tekst die je opgeeft als naam
string filename = saveFileDialog1.FileName;
//een streamwriter declareren en de filenaam meegeven
StreamWriter filesave = new StreamWriter(filename);
//de tekst van het tekstvak van je kladblok wegschrijven
filesave.WriteLine(area.Text);
//de writer leegmaken/flushen
filesave.Flush();
//de writer sluiten
filesave.Close();

//dialogresult = kijken op welke knop er werd geklik
DialogResult dlg_res;
//hiermee haal je de gebruiker op van windows
string user = System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString();
string[] array = user.Split('\\');
int lengte = array.Length;
//hier komt uiteindelijk de naam in
string naam = array[1];
//taal van je systeem bepalen
string taal = Thread.CurrentThread.CurrentUICulture.ThreeLetterWindowsLanguageName.ToString();
 
//de initialDirectory is de standaard directory die hij
//voorstel om iets op te slaan
// die is anders in het nederlands dan in het engels
//vandaar dat de systeem-taal opgehaald word en hier
//een if-else gebruikt wordt
if (taal == "NLD")
{
    saveFileDialog1.InitialDirectory = "C:\\Documents and Settings\\" + naam + "\\Mijn Documenten";
}
if (taal == "ENU")
{
    saveFileDialog1.InitialDirectory = "C:\\Documents and Settings\\" + naam + "\\My Documents";
}
 
//kijken op welke knop er werd gedrukt
dlg_res = saveFileDialog1.ShowDialog();
 
//bij cancel, nies doen, bij mij staat hier wel iets
//ik heb heel de blok code in een functie staan vandaar
if (dlg_res == DialogResult.Cancel)
{
}
 
//filename is een string en de waarde is de tekst die je opgeeft als naam
string filename = saveFileDialog1.FileName;
//een streamwriter declareren en de filenaam meegeven
StreamWriter filesave = new StreamWriter(filename);
//de tekst van het tekstvak van je kladblok wegschrijven
filesave.WriteLine(area.Text);
//de writer leegmaken/flushen
filesave.Flush();
//de writer sluiten
filesave.Close();

Dim sfd As New SaveFileDialog()
        Dim dlg_res As New DialogResult()
        Dim user As String = System.Security.Principal.WindowsIdentity.GetCurrent.Name.ToString()
        Dim array As String() = user.Split("\")
        Dim lengte As Integer = array.Length
        Dim naam As String = array(1)
        Dim taal As String = System.Threading.Thread.CurrentThread.CurrentUICulture.ThreeLetterWindowsLanguageName.ToString()

        If taal = "NLD" Then
            sfd.InitialDirectory = "C:\Documents and Settings\" & naam & "\Mijn Documenten"
        End If
        If taal = "ENU" Then
            sfd.InitialDirectory = "C:\Documents and Settings\" & naam & "\My Documents"
        End If

        dlg_res = sfd.ShowDialog()

        If dlg_res = Windows.Forms.DialogResult.Cancel Then
            
        Else

            Dim filename As String = sfd.FileName
            filename &= ".txt"
            Dim filesave As System.IO.StreamWriter = New System.IO.StreamWriter(filename)
            filesave.WriteLine(area.Text)
            'area is de naam van het tekstvak
            filesave.Flush()
            filesave.Close()

        End If

Dim sfd As New SaveFileDialog()
        Dim dlg_res As New DialogResult()
        Dim user As String = System.Security.Principal.WindowsIdentity.GetCurrent.Name.ToString()
        Dim array As String() = user.Split("\")
        Dim lengte As Integer = array.Length
        Dim naam As String = array(1)
        Dim taal As String = System.Threading.Thread.CurrentThread.CurrentUICulture.ThreeLetterWindowsLanguageName.ToString()
 
        If taal = "NLD" Then
            sfd.InitialDirectory = "C:\Documents and Settings\" & naam & "\Mijn Documenten"
        End If
        If taal = "ENU" Then
            sfd.InitialDirectory = "C:\Documents and Settings\" & naam & "\My Documents"
        End If
 
        dlg_res = sfd.ShowDialog()
 
        If dlg_res = Windows.Forms.DialogResult.Cancel Then
 
        Else
 
            Dim filename As String = sfd.FileName
            filename &= ".txt"
            Dim filesave As System.IO.StreamWriter = New System.IO.StreamWriter(filename)
            filesave.WriteLine(area.Text)
            'area is de naam van het tekstvak
            filesave.Flush()
            filesave.Close()
 
        End If