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 是什么东东？