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

Case 1 '''' 执行信息打包

lstInfo.ListItems.Clear

frmLogin.Show 1, Me

Case 2

Unload Me

Case 3

If lstInfo.ListItems.count = 0 Then MsgBox "无信息可供导出！", , App.EXEName: Exit Sub

With frmMain.comdInfo

.Filter = "更新列表信息|*.txt"

.DialogTitle = "导出包列表信息文件"

.InitDir = CurDir()

.Flags = cdlOFNHideReadOnly

.FileName = "更新列表.txt"

On Error GoTo ErrLab

.ShowSave

FileName = .FileName

If FileExists(FileName) Then

SetAttr FileName, vbNormal

Kill FileName

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