Question

vb连续解压多个压缩包到同一个文件夹，但每压缩包里面都有同一个文件，如何使其不弹出覆盖对话框？

关键代码如下：
For I = 0 To J
Source = StrDir & TxtDir(I) '.rar的路径
FileString = Rarexe & " X " & Source & " " & Path1
Result = Shell(Rarexe & " X " & StrTxtFile & "\" & TxtDir(I) & " " & Path1 & "\", vbHide)
Do While Result = 0
DoEvents
Loop
Result = 0
Do While Dir(Path1 & "\" & KillFiles) <> ""
DoEvents
Kill Path1 & "\" & KillFiles
Sleep 200
Kill Path1 & "\" & KillFiles
Loop
Next I
MsgBox "解压完成！"

Answer 1

先解压到另外一个文件夹里，再把文件剪切过来。

Answer 2

’下面的这句，其中的参数-or，表示遇到同名的文件时，自动重命名：
unrar.exe x -or F:\a.rar F:\ttt