高分急求如何用winrer自动把文件解压出来,提示“没有找到压缩文件”

Question

Shell "C:\Program Files\WinRAR\Winrar e " & App.Path & "\F.rar"用上面代码在VB代码环境下可以实现把文件自动解压出来，,但编译后就出现提示“没有找到压缩文件”,不知道是什么原因，是在同一台电脑上哪位高手有更好的解压方法吗？自动把文件解压出来

Answer 1

Shell "C:\Program Files\WinRAR\Winrar e """ & App.Path & "\F.rar""" 把路径引起来试试.

Answer 2

不支持长路径，建议用API函数转成短路径。
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
或者将文件路径包含在隐号中。
天狼工作室
http://www.j2soft.cn/