Как спрятать в файле jpg папку с файлами? - Visual Basic .NET

Формулировка задачи:

Приветствую всех. Не подскажите код как спрятать в файле jpg папку с файлами? Знаю есть команда через bat (copy//b 1.jpg+2.rar 3.jpg) Но как сделать программу не магу сообразить. Есть код начальный вот:

Public Class Form1
 
    Private Sub ListFiles(ByVal folderPath As String)
        ListBox1.Items.Clear()
        Dim filesNames = My.Computer.FileSystem.GetFiles(
            folderPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
        For Each filesName As String In filesNames
            ListBox1.Items.Add(filesNames)
        Next
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
            End If
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            SaveFileDialog1.Filter = "JPEG |*.jpeg"
            If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
            End If
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog2.FileName)
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

Решение задачи: «Как спрятать в файле jpg папку с файлами?»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Dim Cont As String = ""
    Dim StartImage As String
    Dim SplFiles() As String = {"joinfiles"}
    Dim NameAndFile() As String = {"nameandfile"}
 
    'Выбор основной картинки, шаг 1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim OFD As New OpenFileDialog With {.Title = "Выберите основную картинку", .Filter = "Изображения|*.jpg;*.png;*.bmp"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Cont &= IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
            StartImage = OFD.FileName
        End If
    End Sub
 
    'Присоединяем файлы. Количество - по желанию. Шаг 2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Cont.Length = 0 Then
            MsgBox("Все еще не выбрана основная картинка", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        Dim OFD As New OpenFileDialog With {.Title = "Выберите файл для присоединения"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Cont &= SplFiles(0) & IO.Path.GetFileName(OFD.FileName) & NameAndFile(0) & IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
        End If
    End Sub
 
    'Готовый массив сохраняем в стартовую картинку (сделайте ее бэкап, она будет переписана). Шаг 3
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Cont.Length = 0 Then
            MsgBox("Сохранять нечего", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        Dim SFD As New OpenFileDialog With {.Title = "Выберите файл для присоединения"}
        IO.File.WriteAllText(StartImage, Cont, System.Text.Encoding.Default)
    End Sub
 
    'Открытие результирующего файла, выбор папки. Диалог сам будет подставлять нужные имена для файлов
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim OFD As New OpenFileDialog With {.Title = "Выберите картинку, к которой присоединяли файлы", .Filter = "Изображения|*.jpg;*.png;*.bmp"}
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim Mix As String = IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
            Dim FilesInfo() As String = Mix.Split(SplFiles, StringSplitOptions.RemoveEmptyEntries)
            If FilesInfo.Length > 1 Then
                For I As Integer = 1 To FilesInfo.Length - 1
                    Dim F_Info() As String = FilesInfo(I).Split(NameAndFile, StringSplitOptions.RemoveEmptyEntries)
                    Dim SFD As New SaveFileDialog With {.FileName = F_Info(0)}
                    If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
                        IO.File.WriteAllText(SFD.FileName, F_Info(1), System.Text.Encoding.Default)
                    End If
                Next
            End If
        End If
    End Sub
End Class
                        