Update 2024-01-10

CryptoEditor/Form1.vb

@@ -1,15 +1,19 @@
 Imports System.IO
 Public Class Form1
     Const CryptoKey As String = "StefanHutterUnternehmensberatung8808Pfaeffikon"
+    Dim fn As String
     Private Sub LadenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles LadenToolStripMenuItem1.Click
         If OpenFileDialog1.ShowDialog = DialogResult.OK Then
             Read_File(OpenFileDialog1.FileName, False)
+            fn = OpenFileDialog1.FileName
         End If
     End Sub
 
     Private Sub LadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LadenToolStripMenuItem.Click
+        OpenFileDialog1.Filter = "CFG-Dateien (*.cfg)|*.cfg|Alle Dateien (*.*)|*.*"
         If OpenFileDialog1.ShowDialog = DialogResult.OK Then
             Read_File(OpenFileDialog1.FileName, True)
+            fn = OpenFileDialog1.FileName
         End If
     End Sub
     Private Sub Read_File(ByVal filename As String, ByVal Crypted As Boolean)
@@ -33,13 +37,16 @@ Public Class Form1
     End Sub
 
     Private Sub SpeichernToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem1.Click
+        SaveFileDialog1.FileName = fn
         If SaveFileDialog1.ShowDialog = DialogResult.OK Then
-            save_file(SaveFileDialog1.FileName, False)
+            Save_File(SaveFileDialog1.FileName, False)
         End If
     End Sub
 
     Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
+        SaveFileDialog1.FileName = fn
         If SaveFileDialog1.ShowDialog = DialogResult.OK Then
+
             Save_File(SaveFileDialog1.FileName, True)
         End If