Using zipFile As New ZipFile

            zipFile.FlattenFoldersOnExtract = Not preserveFoldersStructure
            
            zipFile.Password = password
            zipFile.Encryption = Ionic.Zip.EncryptionAlgorithm.WinZipAes256
            
            For Each fileToCompress As TargetFile In filesToCompress
                Dim entry As Ionic.Zip.ZipEntry = zipFile.AddFile(fileToCompress.FileName)
                If removeTimestamps Then fileToCompress.FileName = RemoveTimestamp(fileToCompress.FileName)
                Dim fileName As String = Path.GetFileName(fileToCompress.FileName)
                If preserveFoldersStructure Then
                    fileName = Path.Combine(fileToCompress.Directory, fileName)
                End If
                entry.FileName = fileName

            Next

            Dim options As New Ionic.Zip.SelfExtractorSaveOptions
            options.Flavor = Ionic.Zip.SelfExtractorFlavor.WinFormsApplication
            options.Quiet = False
            options.Copyright = "Comanpy"
            options.SfxExeWindowTitle = "FHP self-extracting archive"

            zipFile.SaveSelfExtractor(exeFilePath, options)
        End Using