vba 解压如何解决文件名有空格问题

daqinqin

大佬们，如果这种需要解压的文件的文件名有空格怎么办。
Sub JIEYA() 'D:\ruanjian\winrar\WinRAR.exe
    Dim rarexe As String
    Dim myrar As String
    Dim mypath As String
    Dim filestring As String
    Dim result As Long  
        rarexe = "D:\ruanjian\winrar\WinRAR.exe" 'rar程序路径
        myrar = ThisWorkbook.Path & "\aaa.rar"  '解压后的文件名
        mypath = ThisWorkbook.Path & "\a b c.pdf" '指定要解压的文件
        filestring = rarexe & " A -ep1 " & myrar & " " & mypath
        result = Shell(filestring, vbHide)
End Sub

ahn

试试：
filestring = rarexe & " A -ep1 " & myrar & " " & mypath
改成
filestring = rarexe & " A -ep1 " & """" & myrar & """" & " " & """" & mypath & """"

如果 rarexe 路径也包含空格，则其两边也需要添加 """"

daqinqin

ahn 发表于 2019-7-5 23:03
试试：
filestring = rarexe & " A -ep1 " & myrar & " " & mypath
改成

亲测成功。谢谢大佬指点。感恩