经典ASP循环执行winrar压缩打包命令，预期生成十个压缩包，为什么实际只生成了两个？

当前位置：点晴教程→知识管理交流 →『技术文档交流』

freeflydom

2026年2月3日 10:37 本文热度 69

：经典ASP循环执行winrar压缩打包命令，预期生成十个压缩包，为什么实际只生成了两个？

以下代码循环执行数组commands中存储的winrar压缩打包命令，关键点在于执行后有没有读取执行结果，命令行中winrar成功压缩虽然显示结果是空白的，但也要去读取结果，不读取就会出现只生成一两个压缩包的情况。

Set shell = CreateObject("WScript.Shell")
For i = 0 To UBound(commands)
		If commands(i) <> "" Then
				Response.Write "执行命令 " & (i+1) & ":" & vbCrLf
				Response.Write commands(i) & vbCrLf
				
				' 执行命令并等待完成
				Set exec = shell.Exec("cmd /c " & commands(i))
				
				' 读取输出，关键步骤，不读取则会出现只压缩生成了一两个压缩包的结果
				output = exec.StdOut.ReadAll()
				
				Response.Write "执行结果 " & (i+1) & ":" & output & vbCrLf
		End If
Next
Set shell = Nothing

该文章在 2026/2/3 10:37:38 编辑过