Copy & Move multiple certain name specific files to another Folder.

I have looked through the forum but couldn't find what I am looking for.

Anybody has a code where it looks for defined specific names on one folder and then copies it to another folder.

any help would be greatly appreciated!

Originally Posted by Tinbendr

Sub MoveFiles()
Dim SrcPath As String
Dim DestPath As String
Dim FN As String
Dim FilterString As String

'Be sure to include trailing backslash
SrcPath = "C:\Users\owner\Documents\"
DestPath = "C:\Users\owner\Documents\Dest\"
FilterString = "*.xls?"

FN = Dir(SrcPath & FilterString)

If FN <> "" Then
    Do
        'Name SrcPath & FN As DestPath & FN 'Moves the file
        FileCopy SrcPath & FN, DestPath & FN  'Copies the file
        FN = Dir
    Loop Until FN = ""
End If

End Sub

Thanks, but from what i see, your code looks for extension and then copy/move. I want certain files to be copied since there are a lot of items in the folder with the same extensions.

Originally Posted by Tinbendr

Change filterstring to any legal wildcard pattern.

Your code compiles but does not copy files from one folder to another. It runs but does not do anything.

ps

I have 2 files that I need from inside a folder

RB1.pdf
RB2.pdf

Would this work?

FilterString = "RB1.pdf", "RB2.pdf"

Sub CommandButton19_Click() ' import roof profiles

Dim SrcPath As String
Dim DestPath As String
Dim FN As String
Dim FilterString As String

'Be sure to include trailing backslash
SrcPath = SrceFile3 = "M:\CA\Jobs2016\" & TextBox3 
DestPath = "S:\PDF_Jobs\" & ComboBox1 & "\" & ComboBox2 & "\" & ComboBox3
FilterString = ""

FN = Dir(SrcPath & FilterString)

If FN <> "" Then
    Do
        Name SrcPath & "RB1.pdf" As DestPath & "RB1.pdf" 'Moves the file
        Name SrcPath & "RB2.pdf" As DestPath & "RB2.pdf" 'Moves the file
        FileCopy SrcPath & FN, DestPath & FN  'Copies the file
        FN = Dir
    Loop Until FN = ""
End If

End Sub
End Sub

Runs but doesn't do anything

Thanks for the help, but It does the same thing. Maybe I am doing something wrong, dunno.