Put Statement Allows Writing Beyond End of File

MORE INFORMATION

1. On the Start Menu, point to Programs, point to Accessories, and then click Notepad.
2. Type ABC into the blank Notepad document.
3. Click Save on the File Menu. In the Save As dialog box, open the My Documents folder. Then, type Test in the File name box, and click Save.
4. On the File menu, click Exit.
   
   This creates a file called Test.txt in the My Documents folder.

1. Close and save any open workbooks, and then open a new workbook.
2. Start the Visual Basic Editor (press ALT+F11).
3. On the Insert menu, click Module.
4. In the module type the following code:

   Type Test_Record
        Test As String * 7
      End Type
   
      Sub PutTest()
        Dim P As Test_Record
        Dim filenum As Integer
   
        filenum = FreeFile()
   
        'Open the file you created.
        Open "c:\My Documents\Test.txt" For Random As filenum Len = Len(P)
   
          P.Test = "Testing"
   
          'Write a record to the file.
          Put #filenum, 2, P
   
        'Close the file.
        Close #filenum
      End Sub
   
   						

5. Run the PutTest macro.
6. Open the file Text.txt in Notepad.