End With

        MsgBox "信息列表被导出在“" & FileName & "”文件中！", , App.EXEName

    Case Else

End Select

Screen.MousePointer = 1

Exit Sub

ErrLab:

    If Err.Number = 32755 Then

        ''''解压文件

        d_FileNames(FileNum) = App.Path & "\" & s_FileNames(FileNum)

        If FileExists(d_FileNames(i - 1)) Then SetAttr d_FileNames(FileNum), vbNormal

        ExtractFileFromCab cab_FileName, "@" & s_FileNames(FileNum), d_FileNames(FileNum), 1, App.Path & "\"

        SetAttr d_FileNames(FileNum), vbNormal

        PGBar.Value = FileNum + 1

        lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count + 1, s_FileNames(FileNum), App.Path & "\" & s_FileNames(FileNum)

        ''''删除系统安装目录下的复制包

        If FileExists(cab_FileName) Then Kill cab_FileName

        Kill FileName

        MsgBox "您取消了指定用户信息的位置，该用户信息缺省被放在“" & d_FileNames(FileNum) & "”！" _

               & vbCrLf & vbCrLf & "解压缩完成，系统更新完成，谢谢使用！", , App.EXEName

        PGBar.Min = 0

        PGBar.Value = 0

    Else

        Err.Raise Err.Number, , Err.Description

    End If

    Screen.MousePointer = 1

    Exit Sub

Errfind:

    If Err.Number = 32755 Then

    Else

        Err.Raise Err.Number, , Err.Description

    End If

    Screen.MousePointer = 1

    Exit Sub

End Sub

Private Sub lblAbout_Click()

  lblAbout.BorderStyle = 1

  frmAbout.Show 1, Me

End Sub

Private Sub lstInfo_ItemClick(ByVal Item As MSComctlLib.ListItem)

    If Not (Item Is Nothing) Then

        lstInfo.ToolTipText = "[目标信息] " & Item.ListSubItems(2)

    End If

End Sub

上一页  [1] [2] [3] [4] [5] [6]