用VB6.0自制压缩与解压缩程序(一)

j = ExtractFileFromCab(cab_FileName, "@" & s_FileNames(i - 1), d_FileNames(i - 1), 1, App.Path & "\")

If j = 0 Then

MsgBox "该压缩包信息不完整，或不是“商务频道系统文件更新”包！" & vbCrLf & vbCrLf & "解压没完成,请索取最新的更新包！", , App.EXEName

lstInfo.ListItems.Clear

PGBar.Min = 0

PGBar.Value = 0

Screen.MousePointer = 1

Exit Sub

End If

PGBar.Value = i

DoEvents

lstvInfo_Add lstInfo, 3, False, lstInfo.ListItems.count 1, s_FileNames(i - 1), d_FileNames(i - 1)

Next

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

Kill cab_FileName

Kill FileName

PGBar.Value = FileNum 1

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

PGBar.Min = 0

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!