macro to move files

[howard]

I have a folder called on my network called "\\BRTsales\admin\"

I would like a macro to move all the csv files as well as .xlsm files within the sub-folder to "Old Archives" within each of the sub-folders

It would be appreciated if someone could kindly assist me

 

[JB2020]

This should be roughly what you need:

Sub MoveFiles()

    Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim MainFolder As Object, SubFolder As Object, ArchiveFolder As Object
    Dim SFFile As Object
    
    Const NetworkPath As String = "\\BRTsales\admin\"
        
        Set MainFolder = FSO.GetFolder(NetworkPath)
        
        For Each SubFolder In MainFolder.SubFolders
            Set ArchiveFolder = SubFolder.SubFolders("Old Archives")
            For Each SFFile In SubFolder.SubFolders.Files
                If SFFile.Name Like "*.xlsm" Or SFFile.Name Like "*.csv" Then SFFile.Move ArchiveFolder
            Next SFFile
        Next SubFolder
    
End Sub

 

[howard]

Thanks for the help. This is perfect