首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

unzip32.dll解压缩文件出有关问题了

2013-02-25 
unzip32.dll解压缩文件出问题了代码在下面可以每次解压都找不到完成的文件,和解?求大虾帮忙Private Sub Fo

unzip32.dll解压缩文件出问题了
代码在下面可以每次解压都找不到完成的文件,和解?求大虾帮忙

Private Sub Form_Click()
    Dim prom%, over%, mess%, dirs%, numf&, numx&
    Dim zipfile$, unzipdir$

    crlf = Chr$(13) + Chr$(10)
    Cls

    vbzipinf = ""
    vbzipnum = 0   

    prom = 1  ' 1=prompt to overwrite
    over = 0  ' 1=always overwrite files
    
    mess = 1  ' 1=list contents of zip 0=extract
    dirs = 1  ' 1=honour zip directories
    
    vbzipnam.s(0) = vbNullString
    numf = 0

    vbxnames.s(0) = vbNullString
    numx = 0
        
    zipfile = "c:\w1\w1.zip" ''改为你想Unzip的文件
    unzipdir = "C:\w1\jieya" ''改为你想放置文件的目录

    Call VBUnzip(zipfile, unzipdir, prom, over, mess, dirs, numf, numx)   

    If Len(vbzipmes) > 0 Then Print vbzipmes
    If Len(vbzipinf) > 0 Then
        Print "vbzipinf is:"
        Print vbzipinf
    End If
    If vbzipnum > 0 Then Print "Number of files: " + Str$(vbzipnum)
End Sub
[解决办法]
vbzipnam 和 vbxnames 是什么东东?

热点排行