12-01-17, 03:59 AM
السلام عليكم
هذا الكود مكتوب بالفيجوال 6
Dim My_File() As Byte
Open File1.FileName For Binary As #1
ReDim My_File(0 To (LOF(1) - 1))
Get #1, , My_File
Close
وهو عبارة عن كود لفتح ملف ووضعه في مصفوفة
اريد تحويله الى فيجوال 2008
ولكم الشكر
هذا الكود مكتوب بالفيجوال 6
Dim My_File() As Byte
Open File1.FileName For Binary As #1
ReDim My_File(0 To (LOF(1) - 1))
Get #1, , My_File
Close
وهو عبارة عن كود لفتح ملف ووضعه في مصفوفة
اريد تحويله الى فيجوال 2008
ولكم الشكر