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