how to read any file

hello everybody

i try to read a file with input function but it works only with files that contains regular characters

if i want to read a mid file with this code:

VB Code:

Dim filetext, filename As String
filename = Dlg.filename
Open filename For Input As #1
    filetext = Input(LOF(1), #1) 
Close #1

It give error: input past end of file
why?

The error means its treating one of the unknown characters as an End of File pointer... But, the end of the file hasn't been reached according to the total length.

Common error. Not worked out how to get round it yet though.

excuse me i'm italian there is or not a solution?

i could try with file system object

Wait for the more experienced members around here to give you a hand, i can't think of an easier or better way to handle displaying a file with unknown characters.
But, maybe they can ;)

work around,

VB Code:

Dim filetext As String
Dim filename As String
Dim sBuff    As String
 
    filename = Dlg.filename
    Open filename For Input As #1
    Do While Not EOF(1)
        Line Input #1, filetext
        sBuff = sBuff & vbNewLine & filetext
        Close #1
    Loop

it work only with text files because when i view the lenght of sBuff, it is different from lenght of file.
the variable was trimmed.

it doesn't show all characters

for ex:
the file was 91440 characters
in the sBuff there are 6163 characters

I forget who posted this, but it should solve the problem.

I would try reading in the binary mode.
For instruction on how to do this, please see the tutorial on my site. On this page:
http://www.thevbprogrammer.com/tutorials.html
Check out "Binary Files" under "6. Files".

also have a look at my sig for thw api method.

i've tryed also that program "read buffer" but it doesn't work

i want to retrive every single charaters from a Midi files.

before i had vb.net but i've lost it
in vb.net reading working.

MIDI files are binary. That's the only way to read them.