vb6调用winRAR压缩文件,路径中有中文就出错，没中文就可以执行，怎样解决?请各位帮个忙，急...

Question

vb6调用winRAR压缩文件,路径中有中文就出错，没中文就可以执行，怎样解决?请各位帮个忙，急...
具体代码如下：
Const Rarexe As String = "C:\Program Files\WinRAR\WinRAR.exe"      'WinRar压缩执行文件的位置Private Sub Cmd_Rar_Click()Dim sourceFile As String  '解压缩前的原始文件
Dim targetFile As String  '解压缩后的目标文件
Dim rarOrder As String    'shell指令中的字符串
Dim rarResult As Long
    
    sourceFile = "try.jpg"
    targetFile = "try.rar"
    rarOrder = Rarexe & " a " & get_Full_FileName(targetFile) & " " & get_Full_FileName(sourceFile)
    rarResult = Shell(rarOrder, vbHide)
    MsgBox rarResult
    
End Sub'App.Path-“C:\Documents and Settings\Administrator\桌面\WinRar”
Function get_Full_FileName(fileName As String) As String
    
    If Right(App.Path, 1) = "\" Then
        get_Full_FileName = App.Path & fileName
    Else
        get_Full_FileName = App.Path & "\" & fileName
    End If
    
End Function'*********报错内容**********
!   C:\Documents.rar: 无法打开 and
!   系统找不到指定的文件。
!   C:\Documents.rar: 无法打开 Settings\Administrator\桌面\WinRar\try.rar
!   系统找不到指定的路径。
!   C:\Documents.rar: 无法打开 C:\Documents
!   系统找不到指定的文件。
!   C:\Documents.rar: 无法打开 and
!   系统找不到指定的文件。
!   C:\Documents.rar: 无法打开 Settings\Administrator\桌面\WinRar\try.jpg
!   系统找不到指定的路径。

Answer 1

可以先把文件地址 转换为 DOS 8.3 的格式 

Answer 2

不是不支持中文  而是路径中遇到空格会出错
可以在路径两边添加 ""  
例如 :
get_Full_FileName = """" & app.path & iif(right(app.path,1)="\","","\") & filename & """"