急求！vb.net 调用 winrar 报错

急求！！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
求高手帮忙
------解决思路----------------------
你确认路径都正确吗，写完整路径试试
------解决思路----------------------
显示一下 winrar & "      e      " & file.FullName & "      " & tbxTemp.Text  的内容是什么。