MS2

app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb

@@ -144,20 +144,28 @@
     End Sub
 
     Private Sub btnZielpfad_Click(sender As Object, e As EventArgs) Handles btnZielpfad.Click
-        'First create a FolderBrowserDialog object
-        Dim FolderBrowserDialog1 As New FolderBrowserDialog
-        ' Then use the following code to create the Dialog window
-        ' Change the .SelectedPath property to the default location
-        With FolderBrowserDialog1
-            ' Desktop is the root folder in the dialog.
-            '.RootFolder = Environment.SpecialFolder.Desktop
-            ' Prompt the user with a custom message.
-            .Description = "Zielordner für Dokumentart wählen:"
-            If .ShowDialog = DialogResult.OK Then
-                Dim Path As String = .SelectedPath
-                ZIEL_PFADTextBox.Text = .SelectedPath
-            End If
-        End With
+        Try
+            'First create a FolderBrowserDialog object
+            Dim FolderBrowserDialog1 As New FolderBrowserDialog
+            ' Then use the following code to create the Dialog window
+            ' Change the .SelectedPath property to the default location
+            With FolderBrowserDialog1
+                ' Desktop is the root folder in the dialog.
+                If ZIEL_PFADTextBox.Text <> "" Then
+                    .SelectedPath = ZIEL_PFADTextBox.Text
+                End If
+                '.RootFolder = Environment.SpecialFolder.Desktop
+                ' Prompt the user with a custom message.
+                .Description = "Zielordner für Dokumentart wählen:"
+                If .ShowDialog = DialogResult.OK Then
+                    Dim Path As String = .SelectedPath
+                    ZIEL_PFADTextBox.Text = .SelectedPath
+                End If
+            End With
+        Catch ex As Exception
+            MsgBox("Unexpected Error in set Path:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+       
     End Sub
 
     Private Sub ObjektTypenEintragen()