Microsoft KB Archive/171496

From BetaArchive Wiki
< Microsoft KB Archive
Revision as of 11:29, 21 July 2020 by X010 (talk | contribs) (Text replacement - "&" to "&")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Article ID: 171496

Article Last Modified on 2/24/2004


  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition

This article was previously published under Q171496


An error occurs when reading fixed-length strings into a UDT.


Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug has been fixed in Visual Studio 97 Service Pack 2.

For more information on the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

170365 INFO: Visual Studio 97 Service Packs - What, Where, and Why

For a list of the Visual Basic 5.0 bugs that were fixed in the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

171554 INFO: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2


Steps to Reproduce Behavior

  1. Create a new Standard EXE project in Visual Basic 5.0.
  2. Add a new module to the project.
  3. Inside this module, cut and paste the following code:

          Option Explicit
          Type config_rec
            cnf_sync_byte As Integer
            cnf_sysout    As String * 8
            cnf_mode      As String * 8
            cnf_period    As Integer
            cnf_cmp_print As Integer
            cnf_version   As String * 7
            cnf_prog_id   As Integer
            cnf_cond_code As Integer
            cnf_parity    As Integer
          End Type
          Sub TestFile(Config As config_rec)
            Dim FileNum As Integer
            Dim cnfgfile As String
            FileNum = FreeFile
            cnfgfile = "Test.Dat"
            On Error GoTo WriteErrHandler
            Open cnfgfile For Binary As FileNum
            Put #FileNum, 1, Config
            Close #FileNum
            Open cnfgfile For Binary Access Read As FileNum
            Get #FileNum, 1, Config
            Close #FileNum
            Exit Sub
                MsgBox "Error : " & Err & " (" & Error & ")"
          End Sub
  4. Add a CommandButton to Form1.
  5. In the CommandButton's click event, add the following code:

          Dim Config As config_rec
          TestFile Config
  6. Save and run project. There will be an error, and a MsgBox will pop up with the error number (52) and message (Bad File Name Or File Number).

Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp2fix KB171496