binarywriter.aspx

来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 19 行

<%@ 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!