Oversættelse fra C til VB

Nu har jeg ikke forstan på C, men kunne du ikke forklar hvad programmet gør. ;)

Jeg skal konvertere html-filer on-the-fly til PDF.
Dette kan gøres vhj. af Htmldoc se http://www.easysw.com/htmldoc/

funktionen modtager en html-fil der vhj. af et api-kald til HTMLDOC returnere en PDF-fil.

Jeg har selv arbejdet vidre på sagen ved at lave en asp-side der kalder en dll udarbejdet i WB:
<%@ Language=VBScript %>
<%
Response.Expires=0
Response.Buffer=true

Response.ContentType=\"application/pdf\"   
set html_pdf = Server.CreateObject(\"pdf_writer.pdf\")
varstream= html_pdf.hent_pdf(\"test.html\")
Response.BinaryWrite(varstream) \'***Dette fejler! sikkert fordi jeg ikke angiver længden på mit array i Dll\'en

set html_pdf = nothing
Response.end   

%>

DLL:

Public Function hent_pdf(ByVal filnavn As String) As Variant
 
    Dim filnr      As Long
    Dim binbyte()  As Byte
    Dim filstrr    As Long
 
    filnr = FreeFile
    Open \"htmldoc -t pdf --webpage \" + filnavn  For Binary Access Read As #filnr
       
    \'filstrr = FileLen(filnavn)
    \'ReDim binbyte(filstrr)
   
    Get #filnr, , binbyte
   
    Close #filnr
   
    hent_pdf = binbyte

End Function

Jeg støder på flg. problem
Hvordan finder jeg længden på  en Binary File?
Så den rette længde kan afsættes på arrayet!

prøv at bruge EOF.

til jelzin101 (eller andre)

Mener du en iteration gennem filen hvor en var tælles op indtil EOF nåes?
I givet fald har du kodeeksempel der passer til ovenstående?

hvis du gider skrive det om til pseudokode så skal jeg nok skrive det :)

Jeg har løst problemmet omkring længden på en binary fil ved, som du (jelzin101) anviste at benytte EOF. (se nedenstående kode-uddrag) Det er sikkert ikke den pæneste løsning men det virker;-)

Dim VarString  As String
    VarString = String(1, \" \")

Do While Not EOF(filnr)
        filstrr = filstrr + 1 \'*** længden på fil
        VarString = \" \"
        Get #filnr, , VarString
Loop

:0) - jeg ville heller ikke lave det meget pænere selv.

.

Jeg takker for hjælpen:-)

tak for pts.