Hi all I was wondering if anyone knew how to move multiple files from one directory to another? The thing is the file name will always have the word rotation in it but the other part will not be the same and I can't just copy all excel files because that won't work either as not all files in the directory should be copied only those with the name Rotation in them should be moved.

Below is the code that I tried.

Dim UserName As String
UserName = Environ("USERNAME")

Dim fso
Dim sfol As String, dfol As String
sfol = "C:\Documents and Settings\" & UserName & "\My Documents\Downloads" ' change to match the source folder path
dfol = "U:\Rotations\" & SetDate ' change to match the destination folder path
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not fso.FolderExists(sfol) Then
    MsgBox sfol & " is not a valid folder/path.", vbInformation, "Invalid Source"
ElseIf Not fso.FolderExists(dfol) Then
    MsgBox dfol & " is not a valid folder/path.", vbInformation, "Invalid Destination"
Else
    fso.MoveFile (sfol & "\* Rotation.xls"), dfol ' Change "\*.*" to "\*.xls" to move Excel Files only
End If
If Err.number = 53 Then MsgBox "File not found"