Good day

How do I save the contents of a midi file to a property bag and then read the contents of the pb and save it to a midi file.

No success with -
Dim FF as long, vartemp as variant
Dim ByteArr() as byte
FF= freefile
Open "c:\town.mid" For Binary As FF
Get FF, , vartemp
Close FF

bytearr= vartemp
--------------------------
vartemp shows empty.

Appreciate any feed back

Jdsouza

Would this link helps? http://forums.microsoft.com/msdn/ShowPost.aspx?PostID=113383

____________________________
Im JAMES  

Thanks for the reply. TJ_01

What is the equivalent in VB6 for the following code (from the link you provided)?
Dim filename As String = Application.StartupPath + "\twinkle.mid"
''''   Dim fs As New System.IO.FileStream(filename, IO.FileMode.Open)
''''   Dim f As New System.IO.BinaryReader(fs)

----  New System.IO.FileStream(filename, IO.FileMode.Open)?
----  New System.IO.BinaryReader(fs)    

Pasting the code in VB6 shows up in red colour.

Brgds
jdsouza

Solved my problem by utilizing the VB6 equivalent for the .net dll mscorlib.dll

The dll used is VBCorlib.dll and downloadable from http://www.kellyethridge.com/vbcorlib/  

Extensive documentation is available at pages from the link above.

Thanks to all who tried to help.

jdsouza