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

Private Sub cmdOK_Click(Index As Integer)

Dim FileNum As Long

Dim i As Long

Dim j As Long

Dim FileName As String

Select Case Index

Case 0

FileName = App.Path & "\更新.ini"

''''查找包文件信息

s_FileNames = GetFiles(App.Path & "\*.cab_")

If UBound(s_FileNames) = 0 Then

MsgBox "当前目录下没找到“商务频道系统文件更新”包文件！", , App.EXEName

Exit Sub

End If

If UBound(s_FileNames) > 1 Then

With comdInfo

.Filter = "商务频道系统文件更新包|*.cab_|"

.DialogTitle = "请指定“商务频道系统文件更新”包的位置"

.InitDir = App.Path

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