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

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

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