| Public Function bOpenSeqFile(vsFile As String, vsType As String) As Integer 'Version: 1.000 'Sequential file wrapper for opening, creating, readonly files Dim gscurfile As String ' This function is called to open a sequential file ' It returns the file number On Error GoTo ErrHandler Dim iFreeFile As Integer iFreeFile = FreeFile If Err = 67 Then 'What is this ' AppMsgbox Err & " " & Error & " during bOpenSeqFile of " & vsFile & " for " & vsType bOpenSeqFile = -1 * Err Exit Function End If Retry: gscurfile = vsFile ' set for error handling Select Case vsType Case "I" Open vsFile For Input As #iFreeFile Case "O" Open vsFile For Output As #iFreeFile Case "U" Open vsFile For Random As #iFreeFile Case "B" Open vsFile For Binary As #iFreeFile Case "A" Open vsFile For Append As #iFreeFile Case Else '@@ handle unexpected condition End Select bOpenSeqFile = iFreeFile Exit Function ErrHandler: If Err.Description = "File not found" Then Open vsFile For Output As #iFreeFile Close #iFreeFile Resume ElseIf Err <> 0 Then bOpenSeqFile = -1 * Err End If End Function |