代码在下面可以每次解压都找不到完成的文件,和解?求大虾帮忙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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货