What is wrong with this

Sub Copy_FIles ()
Dim fPath as string, lPath as string

fPath = "\\tfmafs01\corporatesecure$\Procurement
Reporting\ExportReportFolder\Working\"
lPath = "\\tfmafs01\corporatesecure$\Procurement
Reporting\ExportReportFolder\Working\Pre_Formatted _Backup"

FileCopy fPath & "*.*", lPath & "*.*"
End Sub

Thanks