VB6 to ASP

[pcuser_tom]

I'm trying to convert this simple vb6 code to ASP but I just can't figure out how to do it.

Open File1 For Binary As 1
	Open File2 For Binary As 2
		For i = 1 To LOF(1)
			Get #1, , mybyte
			' Manipulate mybyte here
			Put #2, , mybyte
		Next
	Close 2
Close 1

How do I read/write a binary file in ASP?

Tom

Edited May 24, 2007 by pcuser_tom

[jcarle]

<%
   Dim ReadStream
   Dim WriteStream
   Dim byteBuffer

   Const adTypeBinary = 1
   Const adSaveCreateOverWrite = 2

   Set ReadStream = Server.CreateObject("ADODB.Stream")
   ReadStream.Type = adTypeBinary
   ReadStream.Open
   ReadStream.LoadFromFile "infile.ext"

   Set WriteStream = CreateObject("ADODB.Stream")
   WriteStream.Type = adTypeBinary
   WriteStream.Open

   While Not ReadStream.EOS

	  byteBuffer = ReadStream.Read(1)
	  WriteStream.Write byteBuffer

   WEnd

   WriteStream.SaveToFile "outfile.ext", adSaveCreateOverWrite
   WriteStream.Close
   Set WriteStream = Nothing

   ReadStream.Close
   Set ReadStream = Nothing
%>

I suggest that you look up DevGuru in the future for further reference.

Edited May 24, 2007 by jcarle

[pcuser_tom]

Thank you jcarle