Microsoft KB Archive/171496

= FIX: Bad Filename or Number with Get of UDT =

Article ID: 171496

Article Last Modified on 2/24/2004

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition

-



This article was previously published under Q171496



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



STATUS
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
 Create a new Standard EXE project in Visual Basic 5.0. Add a new module to the project.  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

WriteErrHandler: MsgBox "Error : " & Err & " (" & Error & ")"

End Sub  Add a CommandButton to Form1.  In the CommandButton's click event, add the following code: Dim Config As config_rec TestFile Config  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).</li></ol>

Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp2fix KB171496

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.