Convert File To Binary

			Dim FileArray As Byte()
			ReDim FileArray(CInt(FileSize))

			Dim FS As New FileStream(FilePath, FileMode.Open, FileAccess.Read)

			FS.Read(FileArray, 0, CInt(FileSize))

هذه ابسط طرقة

يعطيك العافيه عزيزي جاري التجربه