BUG: Sequential File I/O Does Not Handle Embedded Nulls

MORE INFORMATION

The code sample shown creates a one dimensional byte array with ten elements and fills the array with the number 65 except for the eighth element. This element contains the number 0--a null character. When you run this program, an error message is displayed.

Steps to Reproduce

1. Start Visual Basic 4.0, or if it is already running, click New Project on the File menu.
2. Add a command button to Form1.
3. Add the following code to the Form1 code window:

         Private Sub Command1_Click()
            Close
            Dim b(10) As Byte
   
            'Assign the following numbers to the array elements.
            b(0) = 65
            b(2) = 65
            b(4) = 65
            b(6) = 65
            b(8) = 0
   
            'Set the byte value to a string variable
            s$ = b
   
            'Send the contents of string variable to a sequential file
            Open "C:\test.dat" For Output As #1
            Print #1, s$
            Close #1
   
            'Open the file to receive data
            Open "C:\test.dat" For Input As #1
            t$ = Input(LOF(1), #1)
            Close #1
         End Sub
   						

4. Press the F5 key to start the program. The error, "Run-time error'62': Input past end of file" displays. This error is raised when using the Input function to read the contents of the file.