ili ako hoces sve da stavis u jedan byte niz (ali pazi ovo zahteva dosta memorije, tj ne bi treba da primenljujes na velikim fajlovima):
Code:
Dim fn As Integer
Dim b() As Byte
fn = FreeFile
Open "c:\slika.png" For Binary Access Read As #fn
ReDim b(LOF(fn))
Get #fn,, b
Close #fn