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

'''' Email :douhapy@sina.com

''''

'''' ==============================================

''''

Option Explicit

Private Declare Function ExtractFileFromCab Lib "vb6stkit.dll" _

(ByVal Cab As String, ByVal File As String, ByVal dest As String, _

ByVal iCab As Long, ByVal sSrc As String) As Long

''''说明：

''''cab 为系统安装目录下的压缩包

''''file 为压缩包内的某文件名称（需在该文件名前加“@”字符）

''''dest 为压缩包内的某文件解压后的完全路径名

''''icab 为压缩包的数目

''''ssrc 临时文件夹，一个有效的文件夹路径

Dim s_FileNames() As String ''''源文件名（不含路径）

Dim d_FileNames() As String ''''目标文件名（含路径）

Dim cab_FileName As String ''''包文件名

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