Macro to copy specific files from Sub Folder to Folder

[howard]

I have several files in sub folders on a network "\\account\man\

The sub folders are for eg "\\ad\admin\BR1\

"\\ad\admin\BR2\

"\\ad\admin\sammy\

Etc


I would like all files that contain "Template 2020.xlsm to coy copy to this folder el BR Sales Report template 2020.xlsm

It would be appreciated if someone could provide me with code to do this

 

[howard]

I have tried to adapt code that I obtained ion the Web, but cannot get it to work



Copy Run Numbers templates from Network.xlsm

 Sub sbCopyingAFileReadFromSheet()

'Declaration
Dim FSO
Dim sFile As String
Dim sSFolder As String
Dim sDFolder As String


'This is Your File Name which you want to Copy.You can change File name at A1.
sFile = Sheets("Main").Range("A1")

'Change to match the source folder path. You can change Source Folder name at B1.
sSFolder = Sheets("Main").Range("B1")

'Change to match the destination folder path. You can change Destination Folder name at B2.
sDFolder = Sheets("Main").Range("B2")

'Create Object for File System
Set FSO = CreateObject("Scripting.FileSystemObject")

'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(sSFolder & sFile) Then
    MsgBox "Specified File Not Found in Source Folder", vbInformation, "Not Found"

'Copying If the Same File is Not Located in the Destination Folder
ElseIf Not FSO.FileExists(sDFolder & sFile) Then
FSO.CopyFile (sSFolder & sFile), sDFolder, True
MsgBox "Specified File Copied to Destination Folder Successfully", vbInformation, "Done!"
Else
MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If

End Sub

It would be appreciated if someone can kindly asssist me

 

[howard]

I had a typo in post #1

I have several files in sub folders on a network "\\account\man\

The sub folders are for eg "\\account\man\BR1\

"\\account\admin\BR2\

"\\account\admin\sammy\

Etc


I would like all files that contain "Template 2020.xlsm to be copied from the sub-folders for eg BR Sales Report template 2020.xlsm to C:\Sales Reports\


I have also posted on link below

Macro to copy specific workbooks from sub-folders [SOLVED]

I have several files in sub folders on a network "\\account\man\ The sub folders are for eg "\\account\man\BR1\ "\\account\admin\BR2\ "\\account\admin\sammy\ Etc

www.excelforum.com