' Daten speichern in TXT-Datei
Private Sub cmd_Speichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmd_Speichern.Click
 
My.Settings.Reload()
Datei = ReNr + " " + Na1 + " " + Datum + ".txt"
 
Dim dlg As New SaveFileDialog()
 
With dlg
.Title = " Eine Datei speichern..."
.InitialDirectory = Environment.GetFolderPath(My.Settings.strInitialDirectory)
.Filter = "Text-Dateien|*.txt|Alle Dateien|*.*"
.CreatePrompt = False
.OverwritePrompt = True
.ValidateNames = True
.FileName = Datei '& ".txt"
 
End With
 
If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show("Datei wird gespeichert in " & dlg.FileName)
My.Settings.strInitialDirectory = My.Computer.FileSystem.GetParentPath( _
  dlg.FileName)
My.Settings.Save()
End If