MonoRepoUtils: Generate list of wix file entries from folder

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 = $"<File Id=""{oFileInfo.Name}"" Name=""{oFileInfo.Name}"" KeyPath=""no"" Checksum=""yes"" />"
+                oStringBuilder.Append($"{oText}{vbNewLine}")
+            Next
+
+            MemoEdit2.EditValue = oStringBuilder.ToString
+        End If
+    End Sub
 End Class