MS2501

Global_Indexer/frmConfig_Basic.vb

@@ -133,6 +133,14 @@ Public Class frmConfig_Basic
         Try
             With OpenFileDialog1
                 ' Do
+                If txtuniversalViewer.Text <> "" Then
+                    Try
+                        OpenFileDialog1.InitialDirectory = Path.GetDirectoryName(txtuniversalViewer.Text)
+                    Catch ex As Exception
+
+                    End Try
+
+                End If
                 .Filter = "Viewer.Exe|*.exe"
                 .FilterIndex = 1
                 .Title = "Pfad zu Universal Viewer.exe:"
@@ -343,6 +351,9 @@ Public Class frmConfig_Basic
 
     Private Sub btnsetFW_Folder_Click(sender As Object, e As EventArgs) Handles btnsetFW_Folder.Click
         Dim fbdialog As New FolderBrowserDialog
+        If txtFolderWatch.Text <> "" Then
+            fbdialog.SelectedPath = txtFolderWatch.Text
+        End If
         If fbdialog.ShowDialog() = DialogResult.OK Then
             CheckFolder(fbdialog.SelectedPath, "DEFAULT")
         End If
@@ -415,6 +426,9 @@ Public Class frmConfig_Basic
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Dim fbdialog As New FolderBrowserDialog
+        If txtScanFolderWatch.Text <> "" Then
+            fbdialog.SelectedPath = txtScanFolderWatch.Text
+        End If
         If fbdialog.ShowDialog() = DialogResult.OK Then
             CheckFolder(fbdialog.SelectedPath, "SCAN")
         End If
@@ -494,14 +508,6 @@ Public Class frmConfig_Basic
 
         End If
     End Sub
-
-    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
-        ' Specify that the link was visited.
-        Me.LinkLabel1.LinkVisited = True
-        ' Navigate to a URL.
-        System.Diagnostics.Process.Start("http://www.didalog.de/Support")
-    End Sub
-
     Private Sub chkbxUserAut_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserAut.CheckedChanged
         If chkbxUserAut.Checked Then
             Me.txtPasswort.Enabled = False
@@ -511,4 +517,11 @@ Public Class frmConfig_Basic
             Me.txtUser.Enabled = True
         End If
     End Sub
+
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        ' Specify that the link was visited.
+        Me.LinkLabel1.LinkVisited = True
+        ' Navigate to a URL.
+        System.Diagnostics.Process.Start("http://www.didalog.de/Support")
+    End Sub
 End Class