急急急，pkunzip解压缩问题，在线等

[ysyan]

我在程序中将mdb压缩成zip已经实现，用的是pkzip。可解压缩文件zip到mdb文件，用pkunzip却不行，老是报文件找不到，让人真着急，帮帮忙看看怎么回事，谢过了

If objfile.FolderExists(App.Path & "\temp") = True Then
objfile.DeleteFolder App.Path & "\temp", True
End If

objfile.CreateFolder App.Path & "\temp"
lngRetVal = -99999

strtemp = "PKUNZIP -n " & strFileName & " " & App.Path & "\temp\navi.mdb"

lngRetVal = Shell(strtemp, 2) ××××××报错：文件找不到

[ysyan]

怎么没人帮我啊