module1.bas

vb电子书籍

   Attribute VB_Name = "Module1"
'CODE Manger By BcodeXRose
'##################################################################
'## 函数名称：FileErrors
'## 参数：errVal 为Integer型
'As Integer'## 返回类型：As Integer
'##################################################################
Function FileErrors(errVal As Integer) As Integer
    Dim MsgType As Integer           'MsgBox()中按钮类型
    Dim Response As Integer          ' 保存用户对MsgBox()的选择
    Dim Msg As String                'MsgBox()中的提示
    MsgType = vbExclamation          'MsgBox()中的警告信息
    Select Case errVal               '根据 errVal的值给出不同的提示
        Case errDeviceUnavailable        'Error #68
            Msg = "磁盘未格式化"
            MsgType = vbExclamation + 5
        Case errDiskNotReady
            Msg = "驱动器未准备好"
        Case errDeviceIO
            Msg = "磁盘满"
        Case errBadFileName, errBadFileNameOrNumber
            Msg = "文件名非法"
        Case errPathDoesNotExist
            Msg = "路径名不存在"
        Case errBadFileMode
            Msg = "文件类型不正确，无法打开"
        Case errFileAlreadOpen
            Msg = "文件已打开"
        Case errInputPastEndOfFile
            Msg = "有一个不正确的文件结束标志或企图越界读文件"
        Case Else
            FileErrors = 3
            Exit Function
    End Select
    Response = MsgBox(Msg, MsgType, "出错处理")
    Select Case Response
        Case 1, 4
            FileErrors = 0
        Case 5
            FileErrors = 1
        Case 2, 3
            FileErrors = 2
        Case Else
            FileErrors = 3
    End Select
End Function