Copy folders to desktop

[ferocious12]

Hi,

I have about 100 folder with multiple sub-folders.

I want to copy one specific sub-folder named "billing" from all the folders.

Is there any macro i can run ?

Thanks

 

[SirJB7]

Hi, ferocious12!
Does this do the job?
http://www.winhelponline.com/blog/move-copy-files-multiple-sub-folders-single-folder/
If so, just embed it into a Shell command.
Regards!

 

[ferocious12]

Thanks !

This doesn't resolve my issue. I need to copy the sub-folder from all the main folders not the files directly. As copying the files means I have to copy the files in separate sub-folders again. Any advice ?

 

[Monty]

Try This!

Public searchFolderName As String
Sub findFolder()
   
    searchFolderName = "F:\"

    Dim FileSystem As Object

    Set FileSystem = CreateObject("Scripting.FileSystemObject")

    doFolder FileSystem.getFolder(searchFolderName)


End Sub

Sub doFolder(Folder)
    Dim subFolder
    On Error Resume Next
    For Each subFolder In Folder.subfolders
        If Split(subFolder, "\")(UBound(Split(subFolder, "\"))) = "MONTY" Then
            MsgBox "gotcha"
            subFolder.CopyFolder Source:=searchFolderName, Destination:="C:\Users\MONTY\Desktop\"
        End
        End If

        doFolder subFolder
    Next subFolder

End Sub

 

[ferocious12]

Many thanks Monty. can you please explain this to me ?