急求!!vb.net 调用 winrar 出错
For Each file In files
Try
If Shell(winrar & " e " & file.FullName & " " & tbxTemp.Text, AppWinStyle.Hide) = 0 Then
MsgBox("解压失败:" & file.Name)
Exit Sub
Else
Sleep(5000)
End If
Catch ex As Exception
MsgBox("解压失败:" & ex.Message)
Exit Sub
End Try
Next
这是我用来解压缩文件的代码,在win7上运行正常,但是到了XP上运行时winrar老是报错:No archives found
求高手帮忙