Dim strDestinationFolder As String
Dim strSourceFolder As String
Dim strFile As String
strDestinationFolder = "C:\Another Folder\"
strSourceFolder = "C:\My Data\"
strFile = Dir$(strSourceFolder & "*.XLS")
Do While Len(strFile) > 0
FileCopy strSourceFolder & strFile, strDestinationFolder & strFile
strFile = Dir$()
Loop