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

''''导出信息

With lstInfo

WritePrivateProfileString "文件数目", "FileNum", CStr(.ListItems.count), FileName

For i = 1 To .ListItems.count

WritePrivateProfileString "压缩包文件信息", "File" & i, .ListItems(i).SubItems(1), FileName

WritePrivateProfileString "目标文件信息", "File" & i, .ListItems(i).SubItems(2), FileName

Next

End With

End With

MsgBox "信息列表被导出在“" & FileName & "”文件中！", , App.EXEName

Case Else

End Select

Screen.MousePointer = 1

Exit Sub

ErrLab:

If Err.Number = 32755 Then

''''解压文件

d_FileNames(FileNum) = App.Path & "\" & s_FileNames(FileNum)

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