diff --git a/ConfigCreator/MonoRepoUtils.vbproj b/ConfigCreator/MonoRepoUtils.vbproj index 0cd8ba1a..06629cda 100644 --- a/ConfigCreator/MonoRepoUtils.vbproj +++ b/ConfigCreator/MonoRepoUtils.vbproj @@ -52,13 +52,17 @@ + + + + diff --git a/ConfigCreator/My Project/licenses.licx b/ConfigCreator/My Project/licenses.licx index e69de29b..1b715a09 100644 --- a/ConfigCreator/My Project/licenses.licx +++ b/ConfigCreator/My Project/licenses.licx @@ -0,0 +1,4 @@ +DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/ConfigCreator/frmStart.Designer.vb b/ConfigCreator/frmStart.Designer.vb index 32bb1a9b..50d45528 100644 --- a/ConfigCreator/frmStart.Designer.vb +++ b/ConfigCreator/frmStart.Designer.vb @@ -58,6 +58,16 @@ Partial Class frmStart Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.BehaviorManager1 = New DevExpress.Utils.Behaviors.BehaviorManager(Me.components) + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.LayoutControl3 = New DevExpress.XtraLayout.LayoutControl() + Me.LayoutControlGroup2 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.MemoEdit2 = New DevExpress.XtraEditors.MemoEdit() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.btnOpenDirectory = New DevExpress.XtraEditors.SimpleButton() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.TextEdit1 = New DevExpress.XtraEditors.TextEdit() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.XtraFolderBrowserDialog1 = New DevExpress.XtraEditors.XtraFolderBrowserDialog(Me.components) CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.LayoutControl1.SuspendLayout() @@ -89,15 +99,24 @@ Partial Class frmStart CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabPage1.SuspendLayout() CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage3.SuspendLayout() + CType(Me.LayoutControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl3.SuspendLayout() + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MemoEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ComboBoxEdit1 ' - Me.ComboBoxEdit1.Location = New System.Drawing.Point(108, 20) + Me.ComboBoxEdit1.Location = New System.Drawing.Point(117, 20) Me.ComboBoxEdit1.Name = "ComboBoxEdit1" Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) Me.ComboBoxEdit1.Properties.Items.AddRange(New Object() {"ZUGFERD_SERVICE"}) - Me.ComboBoxEdit1.Size = New System.Drawing.Size(742, 20) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(733, 20) Me.ComboBoxEdit1.StyleController = Me.LayoutControl1 Me.ComboBoxEdit1.TabIndex = 0 ' @@ -110,7 +129,7 @@ Partial Class frmStart Me.LayoutControl1.Location = New System.Drawing.Point(0, 0) Me.LayoutControl1.Name = "LayoutControl1" Me.LayoutControl1.Root = Me.Root - Me.LayoutControl1.Size = New System.Drawing.Size(1099, 391) + Me.LayoutControl1.Size = New System.Drawing.Size(1099, 390) Me.LayoutControl1.TabIndex = 1 Me.LayoutControl1.Text = "LayoutControl1" ' @@ -120,7 +139,7 @@ Partial Class frmStart Me.MemoEdit1.Name = "MemoEdit1" Me.MemoEdit1.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MemoEdit1.Properties.Appearance.Options.UseFont = True - Me.MemoEdit1.Size = New System.Drawing.Size(1059, 293) + Me.MemoEdit1.Size = New System.Drawing.Size(1059, 292) Me.MemoEdit1.StyleController = Me.LayoutControl1 Me.MemoEdit1.TabIndex = 5 ' @@ -139,7 +158,7 @@ Partial Class frmStart Me.Root.GroupBordersVisible = False Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3}) Me.Root.Name = "Root" - Me.Root.Size = New System.Drawing.Size(1099, 391) + Me.Root.Size = New System.Drawing.Size(1099, 390) Me.Root.TextVisible = False ' 'LayoutControlItem1 @@ -168,7 +187,7 @@ Partial Class frmStart Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 42) Me.LayoutControlItem3.Name = "LayoutControlItem3" Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem3.Size = New System.Drawing.Size(1079, 329) + Me.LayoutControlItem3.Size = New System.Drawing.Size(1079, 328) Me.LayoutControlItem3.Text = "Config Template" Me.LayoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top Me.LayoutControlItem3.TextSize = New System.Drawing.Size(85, 13) @@ -177,9 +196,9 @@ Partial Class frmStart ' Me.FluentDesignFormContainer1.Controls.Add(Me.XtraTabControl1) Me.FluentDesignFormContainer1.Dock = System.Windows.Forms.DockStyle.Fill - Me.FluentDesignFormContainer1.Location = New System.Drawing.Point(0, 159) + Me.FluentDesignFormContainer1.Location = New System.Drawing.Point(0, 160) Me.FluentDesignFormContainer1.Name = "FluentDesignFormContainer1" - Me.FluentDesignFormContainer1.Size = New System.Drawing.Size(1101, 414) + Me.FluentDesignFormContainer1.Size = New System.Drawing.Size(1101, 413) Me.FluentDesignFormContainer1.TabIndex = 2 ' 'XtraTabControl1 @@ -188,15 +207,15 @@ Partial Class frmStart Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage2 - Me.XtraTabControl1.Size = New System.Drawing.Size(1101, 414) + Me.XtraTabControl1.Size = New System.Drawing.Size(1101, 413) Me.XtraTabControl1.TabIndex = 0 - Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage1}) + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage2, Me.XtraTabPage1, Me.XtraTabPage3}) ' 'XtraTabPage2 ' Me.XtraTabPage2.Controls.Add(Me.LayoutControl2) Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(1099, 391) + Me.XtraTabPage2.Size = New System.Drawing.Size(1099, 390) Me.XtraTabPage2.Text = "EmailSignature Generator" ' 'LayoutControl2 @@ -212,18 +231,18 @@ Partial Class frmStart Me.LayoutControl2.Location = New System.Drawing.Point(0, 0) Me.LayoutControl2.Name = "LayoutControl2" Me.LayoutControl2.Root = Me.LayoutControlGroup1 - Me.LayoutControl2.Size = New System.Drawing.Size(1099, 391) + Me.LayoutControl2.Size = New System.Drawing.Size(1099, 390) Me.LayoutControl2.TabIndex = 0 Me.LayoutControl2.Text = "LayoutControl2" ' 'txxTemplate ' - Me.txxTemplate.Location = New System.Drawing.Point(135, 140) + Me.txxTemplate.Location = New System.Drawing.Point(144, 140) Me.txxTemplate.MenuManager = Me.RibbonControl1 Me.txxTemplate.Name = "txxTemplate" Me.txxTemplate.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txxTemplate.Properties.Appearance.Options.UseFont = True - Me.txxTemplate.Size = New System.Drawing.Size(944, 231) + Me.txxTemplate.Size = New System.Drawing.Size(935, 230) Me.txxTemplate.StyleController = Me.LayoutControl2 Me.txxTemplate.TabIndex = 4 ' @@ -235,7 +254,7 @@ Partial Class frmStart Me.RibbonControl1.MaxItemId = 4 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) - Me.RibbonControl1.Size = New System.Drawing.Size(1101, 159) + Me.RibbonControl1.Size = New System.Drawing.Size(1101, 160) Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 ' 'BarButtonItem1 @@ -273,37 +292,37 @@ Partial Class frmStart ' 'txtBannerUrl ' - Me.txtBannerUrl.Location = New System.Drawing.Point(135, 20) + Me.txtBannerUrl.Location = New System.Drawing.Point(144, 20) Me.txtBannerUrl.MenuManager = Me.RibbonControl1 Me.txtBannerUrl.Name = "txtBannerUrl" - Me.txtBannerUrl.Size = New System.Drawing.Size(361, 20) + Me.txtBannerUrl.Size = New System.Drawing.Size(352, 20) Me.txtBannerUrl.StyleController = Me.LayoutControl2 Me.txtBannerUrl.TabIndex = 5 ' 'txtTrackingUrl ' - Me.txtTrackingUrl.Location = New System.Drawing.Point(631, 20) + Me.txtTrackingUrl.Location = New System.Drawing.Point(640, 20) Me.txtTrackingUrl.MenuManager = Me.RibbonControl1 Me.txtTrackingUrl.Name = "txtTrackingUrl" - Me.txtTrackingUrl.Size = New System.Drawing.Size(448, 20) + Me.txtTrackingUrl.Size = New System.Drawing.Size(439, 20) Me.txtTrackingUrl.StyleController = Me.LayoutControl2 Me.txtTrackingUrl.TabIndex = 6 ' 'txtOutputPath ' - Me.txtOutputPath.Location = New System.Drawing.Point(631, 60) + Me.txtOutputPath.Location = New System.Drawing.Point(640, 60) Me.txtOutputPath.MenuManager = Me.RibbonControl1 Me.txtOutputPath.Name = "txtOutputPath" - Me.txtOutputPath.Size = New System.Drawing.Size(448, 20) + Me.txtOutputPath.Size = New System.Drawing.Size(439, 20) Me.txtOutputPath.StyleController = Me.LayoutControl2 Me.txtOutputPath.TabIndex = 7 ' 'txtADGroup ' - Me.txtADGroup.Location = New System.Drawing.Point(135, 60) + Me.txtADGroup.Location = New System.Drawing.Point(144, 60) Me.txtADGroup.MenuManager = Me.RibbonControl1 Me.txtADGroup.Name = "txtADGroup" - Me.txtADGroup.Size = New System.Drawing.Size(361, 20) + Me.txtADGroup.Size = New System.Drawing.Size(352, 20) Me.txtADGroup.StyleController = Me.LayoutControl2 Me.txtADGroup.TabIndex = 8 ' @@ -321,10 +340,10 @@ Partial Class frmStart ' 'txtADRoot ' - Me.txtADRoot.Location = New System.Drawing.Point(135, 100) + Me.txtADRoot.Location = New System.Drawing.Point(144, 100) Me.txtADRoot.MenuManager = Me.RibbonControl1 Me.txtADRoot.Name = "txtADRoot" - Me.txtADRoot.Size = New System.Drawing.Size(361, 20) + Me.txtADRoot.Size = New System.Drawing.Size(352, 20) Me.txtADRoot.StyleController = Me.LayoutControl2 Me.txtADRoot.TabIndex = 10 ' @@ -334,7 +353,7 @@ Partial Class frmStart Me.LayoutControlGroup1.GroupBordersVisible = False Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10}) Me.LayoutControlGroup1.Name = "LayoutControlGroup1" - Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 391) + Me.LayoutControlGroup1.Size = New System.Drawing.Size(1099, 390) Me.LayoutControlGroup1.TextVisible = False ' 'LayoutControlItem4 @@ -343,7 +362,7 @@ Partial Class frmStart Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120) Me.LayoutControlItem4.Name = "LayoutControlItem4" Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) - Me.LayoutControlItem4.Size = New System.Drawing.Size(1079, 251) + Me.LayoutControlItem4.Size = New System.Drawing.Size(1079, 250) Me.LayoutControlItem4.Text = "HTML Template" Me.LayoutControlItem4.TextSize = New System.Drawing.Size(112, 13) ' @@ -410,7 +429,7 @@ Partial Class frmStart ' Me.XtraTabPage1.Controls.Add(Me.LayoutControl1) Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1099, 391) + Me.XtraTabPage1.Size = New System.Drawing.Size(1099, 390) Me.XtraTabPage1.Text = "ConfigCreator" ' 'RibbonPage2 @@ -418,6 +437,91 @@ Partial Class frmStart Me.RibbonPage2.Name = "RibbonPage2" Me.RibbonPage2.Text = "RibbonPage2" ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.Controls.Add(Me.LayoutControl3) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(1099, 390) + Me.XtraTabPage3.Text = "XtraTabPage3" + ' + 'LayoutControl3 + ' + Me.LayoutControl3.Controls.Add(Me.MemoEdit2) + Me.LayoutControl3.Controls.Add(Me.btnOpenDirectory) + Me.LayoutControl3.Controls.Add(Me.TextEdit1) + Me.LayoutControl3.Dock = System.Windows.Forms.DockStyle.Fill + Me.LayoutControl3.Location = New System.Drawing.Point(0, 0) + Me.LayoutControl3.Name = "LayoutControl3" + Me.LayoutControl3.Root = Me.LayoutControlGroup2 + Me.LayoutControl3.Size = New System.Drawing.Size(1099, 390) + Me.LayoutControl3.TabIndex = 1 + Me.LayoutControl3.Text = "LayoutControl3" + ' + 'LayoutControlGroup2 + ' + Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.LayoutControlGroup2.GroupBordersVisible = False + Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlItem12}) + Me.LayoutControlGroup2.Name = "LayoutControlGroup2" + Me.LayoutControlGroup2.Size = New System.Drawing.Size(1099, 390) + Me.LayoutControlGroup2.TextVisible = False + ' + 'MemoEdit2 + ' + Me.MemoEdit2.Location = New System.Drawing.Point(131, 38) + Me.MemoEdit2.MenuManager = Me.RibbonControl1 + Me.MemoEdit2.Name = "MemoEdit2" + Me.MemoEdit2.Size = New System.Drawing.Size(956, 340) + Me.MemoEdit2.StyleController = Me.LayoutControl3 + Me.MemoEdit2.TabIndex = 4 + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.MemoEdit2 + Me.LayoutControlItem11.Location = New System.Drawing.Point(0, 26) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Size = New System.Drawing.Size(1079, 344) + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(107, 13) + ' + 'btnOpenDirectory + ' + Me.btnOpenDirectory.Location = New System.Drawing.Point(966, 12) + Me.btnOpenDirectory.Name = "btnOpenDirectory" + Me.btnOpenDirectory.Size = New System.Drawing.Size(121, 22) + Me.btnOpenDirectory.StyleController = Me.LayoutControl3 + Me.btnOpenDirectory.TabIndex = 5 + Me.btnOpenDirectory.Text = "SimpleButton3" + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.btnOpenDirectory + Me.LayoutControlItem12.Location = New System.Drawing.Point(954, 0) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Size = New System.Drawing.Size(125, 26) + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem12.TextVisible = False + ' + 'TextEdit1 + ' + Me.TextEdit1.Location = New System.Drawing.Point(131, 12) + Me.TextEdit1.MenuManager = Me.RibbonControl1 + Me.TextEdit1.Name = "TextEdit1" + Me.TextEdit1.Size = New System.Drawing.Size(831, 20) + Me.TextEdit1.StyleController = Me.LayoutControl3 + Me.TextEdit1.TabIndex = 6 + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.TextEdit1 + Me.LayoutControlItem13.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Size = New System.Drawing.Size(954, 26) + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(107, 13) + ' + 'XtraFolderBrowserDialog1 + ' + Me.XtraFolderBrowserDialog1.SelectedPath = "XtraFolderBrowserDialog1" + ' 'frmStart ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -462,6 +566,15 @@ Partial Class frmStart CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabPage1.ResumeLayout(False) CType(Me.BehaviorManager1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage3.ResumeLayout(False) + CType(Me.LayoutControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl3.ResumeLayout(False) + CType(Me.LayoutControlGroup2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MemoEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -503,4 +616,14 @@ Partial Class frmStart Friend WithEvents BehaviorManager1 As DevExpress.Utils.Behaviors.BehaviorManager Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents LayoutControl3 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents MemoEdit2 As MemoEdit + Friend WithEvents btnOpenDirectory As SimpleButton + Friend WithEvents TextEdit1 As TextEdit + Friend WithEvents LayoutControlGroup2 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents XtraFolderBrowserDialog1 As XtraFolderBrowserDialog End Class diff --git a/ConfigCreator/frmStart.resx b/ConfigCreator/frmStart.resx index c8b29d94..9ab60e87 100644 --- a/ConfigCreator/frmStart.resx +++ b/ConfigCreator/frmStart.resx @@ -120,4 +120,7 @@ 17, 17 + + 171, 17 + \ No newline at end of file diff --git a/ConfigCreator/frmStart.vb b/ConfigCreator/frmStart.vb index 1fefee1d..496f9cb2 100644 --- a/ConfigCreator/frmStart.vb +++ b/ConfigCreator/frmStart.vb @@ -4,6 +4,7 @@ Imports DigitalData.Modules.Config Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Interfaces Imports DigitalData.GUIs.MonoRepoUtils.Config +Imports System.Text Public Class frmStart Private Const ZUGFERD_SERVICE = "ZUGFERD_SERVICE" @@ -113,4 +114,22 @@ Public Class frmStart Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick SaveSettings() End Sub + + Private Sub btnOpenDirectory_Click(sender As Object, e As EventArgs) Handles btnOpenDirectory.Click + Dim oResult = XtraFolderBrowserDialog1.ShowDialog() + + If oResult = DialogResult.OK Then + Dim oPath = XtraFolderBrowserDialog1.SelectedPath + Dim oFiles = IO.Directory.GetFiles(oPath, "*.dll") + Dim oStringBuilder As New StringBuilder() + + For Each oFile In oFiles + Dim oFileInfo = New FileInfo(oFile) + Dim oText = $"" + oStringBuilder.Append($"{oText}{vbNewLine}") + Next + + MemoEdit2.EditValue = oStringBuilder.ToString + End If + End Sub End Class \ No newline at end of file