MS Structure Nodes

app/DD-Record-Organizer/frmWM_IndexFile.vb

@@ -594,7 +594,10 @@ Public Class frmWM_IndexFile
                                 'nur eine Textbox
                                 AddTextBox(DR.Item("GUID"), DR.Item("NAME"), y, VORBELGUNG)
                             End If
+                        Case "FOLDERSELECT"
+                            AddFOLDERSELECTBUTTON(DR.Item("GUID"), DR.Item("NAME"), y)
                         Case "VARCHAR"
+
                             If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
                                 AddVorschlag_ComboBox(DR.Item("GUID"), DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
                                 'AddAutoSuggest_Textbox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
@@ -696,6 +699,56 @@ Public Class frmWM_IndexFile
     Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs)
         Dim cmb As ComboBox = sender
         cmb.BackColor = Color.White
+    End Sub
+    Function AddFOLDERSELECTBUTTON(ID As Integer, indexname As String, y As Integer)
+        Dim btn As New Button
+        btn.Name = "btn" & indexname
+        If USER_LANGUAGE <> "de-DE" Then
+            btn.Text = "Select the folder"
+        Else
+            btn.Text = "Wählen Sie einen Ordner"
+        End If
+
+        btn.Size = New Size(260, 27)
+
+        btn.Tag = ID
+        grbxControls.Controls.Add(btn)
+        btn.Location = New Point(11, y)
+
+        AddHandler btn.Click, AddressOf OnbtnClick
+        Return btn
+    End Function
+    Public Sub OnbtnClick(sender As System.Object, e As System.EventArgs)
+        Dim btn As Button = sender
+        Dim folderBrowserDialog1 As New FolderBrowserDialog
+        If USER_LANGUAGE <> "de-DE" Then
+            folderBrowserDialog1.Description =
+            "Select the directory:"
+        Else
+            folderBrowserDialog1.Description =
+            "Wählen Sie einen Ordner:"
+        End If
+
+        ' Do not allow the user to create New files via the FolderBrowserDialog.
+        folderBrowserDialog1.ShowNewFolderButton = True
+        Try
+            folderBrowserDialog1.RootFolder = PATHTextBox.Text
+        Catch ex As Exception
+
+        End Try
+        Try
+            folderBrowserDialog1.SelectedPath = PATHTextBox.Text
+        Catch ex As Exception
+
+        End Try
+
+        Dim result As DialogResult = folderBrowserDialog1.ShowDialog()
+
+        If (result = DialogResult.OK) Then
+            ClassFileResult.SET_CURRENT_TBPMO_INDEX_MAN_VALUE(btn.Tag, folderBrowserDialog1.SelectedPath)
+        End If
+
+
     End Sub
     Function AddTextBox(ID As Integer, indexname As String, y As Integer, text As String)
         Dim txt As New TextBox
@@ -828,7 +881,6 @@ Public Class frmWM_IndexFile
                                 adapter.Fill(NewDataset)
                             ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then
                                 oracleConn = New OracleConnection(connectionString)
-                                ' Try
                                 oracleConn.Open()
                                 oracleCmd = New OracleCommand(sql, oracleConn)
                                 oracleadapter.SelectCommand = oracleCmd
@@ -919,7 +971,6 @@ Public Class frmWM_IndexFile
                     ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then
 
                         oracleConn = New OracleConnection(connectionString)
-                        ' Try
                         oracleConn.Open()
                         oracleCmd = New OracleCommand(sql_Vorschlag, oracleConn)
                         oracleadapter.SelectCommand = oracleCmd