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

[lvw8000]

Shell "C:\Program Files\WinRAR\Winrar e " & App.Path & "\F.rar"

用上面代码在VB代码环境下可以实现把文件自动解压出来，,但编译后就出现提示“没有找到压缩文件”,不知道是什么原因，是在同一台电脑上

哪位高手有更好的解压方法吗？自动把文件解压出来

[嗷嗷叫的老马]

Shell "C:\Program Files\WinRAR\Winrar e """ & App.Path & "\F.rar""" 

把路径引起来试试.

[射天狼]

不支持长路径，建议用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/