有兄弟在吗?安装了VB的过来帮我一个忙，急用。谢谢

Question

帮忙把下面这个函数编译成MengXHFileDownLoad.DLL
谢谢。 Function readBinFromFile(ByVal bfilename As String) As Variant
     Dim fl As Long
     Dim FileNum As Long
     Dim binbyte() As Byte
     Dim binfilestr As String
     
     On Error GoTo errHandler     
     FileNum = FreeFile     
     Open bfilename For Binary As #FileNum     
     fl = FileLen(bfilename)
     ReDim binbyte(fl)     
     Get #FileNum, , binbyte     
     Close #FileNum     
     readBinFromFile = binbyte
     Exit Function
          
 errHandler:
     Exit Function
 End Function

Answer 1

忘记了，发送到[email protected]
我马上就要走了，帮忙