Sub Test()
Dim strSrcDir As String
Dim strDstDir As String
Dim I As Long
strSrcDir = "C:\Folder1\"
strDstDir = "C:\Folder2\"
With Application.FileSearch
.NewSearch
.LookIn = strSrcDir
.FileType = msoFileTypeAllFiles
.Execute
For I = 1 To .FoundFiles.Count
Name (.FoundFiles(I)) As strDstDir & Dir(.FoundFiles(I))
Next I
End With
End Sub