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