[مساعدة]

السلام عليكم

واضح من الكود انه يقرأ ملف على شكل مصفوفة بايتات،

تفضل الكود إذا الملف معروف مساره مع اسمه

كود :

Dim My_File() As Byte

My_File = IO.File.ReadAllBytes("C:\folder\filename.ext")

---

وهذا الكود إذا كنت تريد يظهر مستكشف الويندوز لاختيار ملف

كود :

Dim My_File() As Byte

Using openfile As New OpenFileDialog
   If openfile.ShowDialog = Windows.Forms.DialogResult.OK Then

       My_File = IO.File.ReadAllBytes(openfile.FileName)

   End If
End Using