Hello all,

I've downloaded the source of a component (from
http://www.*-*-*.com/
n&FR=0) that should read binary files. This works for most files (like .doc
.ppt .mp3 etc) but not for .zip files The function returns a empty stream
this i don't understand .. could you guys/girls help me out ??

tia

Jochem

the source

   Function readBinFile(ByVal bfilename As String)
       Dim fl As Long
       Dim binbyte() As Byte
       Dim binfilestr As String

       On Error GoTo errHandler

       Open bfilename For Binary Access Read As #1

       fl = FileLen(bfilename)
       ReDim binbyte(fl)

       Get #1, , binbyte

       Close #1

       readBinFile = binbyte
       Exit Function

errHandler:
       Exit Function
   End Function