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

Узнай цену своей работы

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

Приветствую всех. Не подскажите код как спрятать в файле jpg папку с файлами? Знаю есть команда через bat (copy//b 1.jpg+2.rar 3.jpg) Но как сделать программу не магу сообразить. Есть код начальный вот:
Листинг программы
  1. Public Class Form1
  2. Private Sub ListFiles(ByVal folderPath As String)
  3. ListBox1.Items.Clear()
  4. Dim filesNames = My.Computer.FileSystem.GetFiles(
  5. folderPath, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
  6. For Each filesName As String In filesNames
  7. ListBox1.Items.Add(filesNames)
  8. Next
  9. End Sub
  10. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  11. Try
  12. If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
  13. PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
  14. End If
  15. Catch ex As Exception
  16. End Try
  17. End Sub
  18. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  19. Try
  20. SaveFileDialog1.Filter = "JPEG |*.jpeg"
  21. If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
  22. PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
  23. End If
  24. Catch ex As Exception
  25. End Try
  26. End Sub
  27. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  28. Try
  29. If OpenFileDialog2.ShowDialog() = DialogResult.OK Then
  30. PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog2.FileName)
  31. End If
  32. Catch ex As Exception
  33. End Try
  34. End Sub
  35. End Class

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

textual
Листинг программы
  1. Public Class Form1
  2.     Dim Cont As String = ""
  3.     Dim StartImage As String
  4.     Dim SplFiles() As String = {"joinfiles"}
  5.     Dim NameAndFile() As String = {"nameandfile"}
  6.  
  7.     'Выбор основной картинки, шаг 1
  8.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  9.         Dim OFD As New OpenFileDialog With {.Title = "Выберите основную картинку", .Filter = "Изображения|*.jpg;*.png;*.bmp"}
  10.         If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
  11.             Cont &= IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
  12.             StartImage = OFD.FileName
  13.         End If
  14.     End Sub
  15.  
  16.     'Присоединяем файлы. Количество - по желанию. Шаг 2
  17.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  18.         If Cont.Length = 0 Then
  19.             MsgBox("Все еще не выбрана основная картинка", MsgBoxStyle.Exclamation)
  20.             Exit Sub
  21.         End If
  22.         Dim OFD As New OpenFileDialog With {.Title = "Выберите файл для присоединения"}
  23.         If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
  24.             Cont &= SplFiles(0) & IO.Path.GetFileName(OFD.FileName) & NameAndFile(0) & IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
  25.         End If
  26.     End Sub
  27.  
  28.     'Готовый массив сохраняем в стартовую картинку (сделайте ее бэкап, она будет переписана). Шаг 3
  29.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  30.         If Cont.Length = 0 Then
  31.             MsgBox("Сохранять нечего", MsgBoxStyle.Exclamation)
  32.             Exit Sub
  33.         End If
  34.         Dim SFD As New OpenFileDialog With {.Title = "Выберите файл для присоединения"}
  35.         IO.File.WriteAllText(StartImage, Cont, System.Text.Encoding.Default)
  36.     End Sub
  37.  
  38.     'Открытие результирующего файла, выбор папки. Диалог сам будет подставлять нужные имена для файлов
  39.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  40.         Dim OFD As New OpenFileDialog With {.Title = "Выберите картинку, к которой присоединяли файлы", .Filter = "Изображения|*.jpg;*.png;*.bmp"}
  41.         If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
  42.             Dim Mix As String = IO.File.ReadAllText(OFD.FileName, System.Text.Encoding.Default)
  43.             Dim FilesInfo() As String = Mix.Split(SplFiles, StringSplitOptions.RemoveEmptyEntries)
  44.             If FilesInfo.Length > 1 Then
  45.                 For I As Integer = 1 To FilesInfo.Length - 1
  46.                     Dim F_Info() As String = FilesInfo(I).Split(NameAndFile, StringSplitOptions.RemoveEmptyEntries)
  47.                     Dim SFD As New SaveFileDialog With {.FileName = F_Info(0)}
  48.                     If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
  49.                         IO.File.WriteAllText(SFD.FileName, F_Info(1), System.Text.Encoding.Default)
  50.                     End If
  51.                 Next
  52.             End If
  53.         End If
  54.     End Sub
  55. End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы