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

j = ExtractFileFromCab(cab_FileName, "@更新.ini", FileName, 1, App.Path & "\")

SetAttr FileName, vbNormal

lblInfo(1).Visible = False

PGBar.Visible = True

Screen.MousePointer = 1

DoEvents

If j = 0 Then

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

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

Kill cab_FileName

Exit Sub

Else

SetAttr FileName, vbNormal

End If

Screen.MousePointer = 11

''''解压信息

FileNum = CLng(CLng(ReadIniFile(FileName, "

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