Need to copy a files based on the extention

Sub Copy_Certain_Files_In_Folder()
'This example copy all Excel files from FromPath to ToPath.
'Note: If the files in ToPath already exist it will overwrite
'existing files in this folder
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileExt As String


FromPath = "C:\Users\Ron\Data"  '<< Change
ToPath = "C:\Users\Ron\Test"    '<< Change


FileExt = "*.docx*"  '<< Change
'You can use *.* for all files or *.doc for Word files


If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If<img src="https://www.ozgrid.com/forum/core/images/smilies/emojione/1f44d.png" alt=":thumbup:" class="smiley" srcset="https://www.ozgrid.com/forum/core/images/smilies/emojione/[email protected] 2x" height="23" data-tooltip="thumbup" id="wscSmiley_0_0">


Set FSO = CreateObject("scripting.filesystemobject")


If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If


If FSO.FolderExists(ToPath) = False Then
MsgBox ToPath & " doesn't exist"
Exit Sub
End If


FSO.CopyFile Source:=FromPath & FileExt, Destination:=ToPath
MsgBox "You can find the files from " & FromPath & " in " & ToPath


End Sub