Path Not Found. File System Object

I've followed a couple of the FSO threads and come up with the code below however I keep getting a 'Runtime Error 76 - Path not found'.

Sub scan_station()
Dim FSO As New FileSystemObject
Dim dest As String
Dim dname As String
dest = "L:eBISScan Station"
dname = "Scans(" & Date & ").csv"
FSO.copyfile "H: odaysscans.csv", dest & dname
End Sub

It hangs at the area coloured red. However if I hard code the full path and name as I've done with the source information it works fine.