急求!!vb.net 调用 winrar 出错

itisapity 2014-10-23 11:39:52
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
求高手帮忙
...全文
136 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
itisapity 2014-10-23
  • 打赏
  • 举报
回复
知道原因了,解压缩文件和解压缩路径 里带有空格。。。
zbdzjx 2014-10-23
  • 打赏
  • 举报
回复
显示一下 winrar & " e " & file.FullName & " " & tbxTemp.Text 的内容是什么。
itisapity 2014-10-23
  • 打赏
  • 举报
回复
引用 1 楼 bdmh 的回复:
你确认路径都正确吗,写完整路径试试
路径肯定正确的,因为 folder = New System.IO.DirectoryInfo(tbxTraceBackup.Text) files = folder.GetFiles("GSMJob.trace*.RAR").ToList
bdmh 2014-10-23
  • 打赏
  • 举报
回复
你确认路径都正确吗,写完整路径试试

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧