Как спрятать в файле 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д