So sorry!

Almost always thoroughly testing, but not this time...
so at least two mistakes!

Here the correct code

PathFrom = "c:\Temp1" ' both paths should exist
PathTo = "c:\Temp2"

varTest = Dir(PathFrom + "\*.*") ' filename [wildcards allowed] necessary

Do Until varTest = ""
FileFrom = PathFrom + "\" + varTest
FileTo = PathTo + "\" + varTest ' now a better variable name!
FileCopy FileFrom, FileTo
varTest = Dir
Loop


Greetings again,
Peter