binarywriter.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.IO" %>

<%
Dim objFileStream As FileStream
Dim objBinaryWriter As BinaryWriter
Dim intCounter As Integer

objFileStream = New FileStream( MapPath( "myFile.data" ), FileMode.Create )
objBinaryWriter = New BinaryWriter( objFileStream )

For intCounter = 0 To 50
  objBinaryWriter.Write( intCounter )
Next

objBinaryWriter.Close
%>

Created binary file!