[سعود]

كود :

Dim lst As New List(Of Byte())
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dir As New DirectoryInfo("pics")
       For Each fl As FileInfo In dir.GetFiles
           lst.Add(My.Computer.FileSystem.ReadAllBytes(fl.FullName))
       Next
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim data As Byte()
       data = lst.SelectMany(Function(x) x).ToArray()
       My.Computer.FileSystem.WriteAllBytes("pics\b.sa", data, True)
   End Sub

الان ملف b.sa 
كيف استخلص محتوياته او كيف ارجعه كملفات صور
هذا اذا كانت الطريقة صحيحة هذه.