zip解压错误问题

397197703

Sub 解压文件()
'
' 解压文件 宏
'
'
Dim Path As String
Dim objShell As Object, f
Set objShell = CreateObject("shell.application")
Set f = objShell.Namespace("C:\Users\虎\Downloads\新建文件夹\晋广无办[2019]15号 关于转发《国家广播电视总局2019年全国广播电视设施安全保护工作要点》的通知.zip")  '要解压的文件路径
objShell.Namespace("C:\Users\虎\Downloads\新建文件夹\xxx").CopyHere (f.items)
End Sub

这样程序可以运行

但是将
Sub 解压文件()
'
' 解压文件 宏
'
'
Dim Path As String
Dim Path1 As String
Path = "C:\Users\虎\Downloads\新建文件夹\晋广无办[2019]15号 关于转发《国家广播电视总局2019年全国广播电视设施安全保护工作要点》的通知.zip"
Path1 = "C:\Users\虎\Downloads\新建文件夹\xxx"
Dim objShell As Object, f
Set objShell = CreateObject("shell.application")
Set f = objShell.Namespace(Path)  '要解压的文件路径
objShell.Namespace(Path1).CopyHere (f.items)
End Sub
这样就错误，为什么有更好的解决办法吗
请指教啊