你的zip应该有问题,得到的文件名,是这样的 \242415KB021607220041.pdf
这样,就会默认把其放到C盘的根目录下的。
Dim fl As String = "C:\Users\dv rrxaI600 007\Downloads\242415kb021607220041.zip"
Dim zip As New zipFile
zip.Open(fl)
For Each File As String In zip.Files
Output.Show(File)
zip.Extract(file, "d:\" & file)
Next
zip.Close