|
bsp; End With
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]
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
