问使用CopyFile方法错误“路径/文件未找到”

EN

Sub Save_Invoice_To_PDF()

Dim Fso As Scripting.FileSystemObject
Dim Invoice As Worksheet
Dim Fname As String
Dim Path1 As String
Dim Path2 As String
Dim PndSign As String
Dim Mth As String
Dim Mth1 As String

Set Invoice = Sheet1

PndSign = Chr(163)

Mth = Invoice.Range("A16").Value
Mth1 = MonthName(Month(Mth))

Path1 = "C:\Users\Peter\Desktop\"
Path2 = "C:\Users\Peter\Documents\Business\Sent Invoices\" & Mth1 & "\"
Fname = Range("C16").Value & " " & Range("A8").Value & " " & _
  PndSign & "" & Range("E46").Value _
  & " " & Format(Range("A16"), "dd-mm-yyyy") & ".pdf"

Application.ScreenUpdating = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=Path1 & " " & Fname, _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  
Set Fso = New FileSystemObject

Fso.CopyFile Source:="C:\Users\Peter\Desktop\" & Fname, _
  Destination:="C:\Users\Peter\Business\Invoices\Sent Invoices\ _
  " & Mth1 & "\"

Set Fso = Nothing

Application.ScreenUpdating = True

End Sub