خواندن از فایل و ریختن در یک آرایه

[m_zi]

با سلام
من می خواهم اطلاعات یک فایل را بخوانم و در یک آرایه بریزم . در ضمن تعداد بایتهای خوانده شده از فایل هم برام مهمه . میشه راهنماییم کنید .

ممنون

[vbhamed]

سلام


Dim x() As Byte

Open "c:\test.exe" For Binary As #1

Get #1, , x

'this two line return length of file
MsgBox LOF(1)
MsgBox UBound(x)

Close #1