VBA Module to copy all files from a folder and it's sub-folders into one location

**X*DG^&** · 09-09-2019, 05:46 AM

Hello everyone,

I'm trying to get a macro working. It's sole purpose would be to copy all files from a folder and it's sub-folders into a single location (regardless the file type).

Now I'm an absolute novice when it comes to any coding and I mainly use codes found on the internet.

I managed to find something that suits me almost perfectly but in regard to sub-folders it copies them whole and I just want the files contained within to be copied.

I tried my best to make it work on my own but I've reached the stage in my frustration when I want to ask for help.

Please advise how to copy pnly the files contained in sub-folders.

The element that I need modified would be:

------------------------------------

Please Login or Register  to view this content.

------------------------------------

WHOLE CODE:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**bulina2k** · 09-09-2019, 06:58 AM

Try replacing this part of the code:

Please Login or Register  to view this content.

With this one:

Please Login or Register  to view this content.

**X*DG^&** · 09-09-2019, 07:04 AM

Works like a charm!
It was the fastest and most helpful answer I ever got on the Internet.
Thank you so much

**alansidman** · 09-09-2019, 08:08 AM

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html

(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

**X*DG^&** · 09-11-2019, 08:59 AM

alansidman
Thank you for this.
I will try my best to adhere to the forum's rules

bulina2k
I just noticed that the macro digs through the first level of subfodlers.
Could it be modified to dig as far as the subfolders go?

**bulina2k** · 09-11-2019, 10:05 AM

Hi there,

Try to use this 2 subs instead of your original CopyAFolder sub:

Please Login or Register  to view this content.

I have to mention this is not tested! I will try it when I reach home cause now i'm in a hurry.

**X*DG^&** · 09-12-2019, 03:46 AM

Tried it, does not seem to work for now.
I tried tweaking it but I'm not above admitting this is way beyond my level

**bulina2k** · 09-12-2019, 07:33 AM

Ok, I'm sorry for the late reply, I just test the code successfully. What seems to be the problem? Do you receive an error ? What "does not seem to work for now" means? Please reply with more details. Thanks!

**X*DG^&** · 09-12-2019, 09:49 AM

Hello there

I replaced the below with the provided code and it does copy all loose files from the Source folder's sub-folders. It does not, however, copy files from their subfolders (2nd level subfolders let's say). It also now omits Source's folder loose files. Below, you'll also find how I imagine the code to work.
I appreciate your help with this. I fail miserably to make it work myself :D

Attachment 641156

Please Login or Register  to view this content.

**bulina2k** · 09-12-2019, 10:03 AM

Ok, that attachment doesn't work, you'll have to "Go Advanced" and use "Manage Attachments" link for you to upload files.
Me I've created some xlsx files in a multi-subfolder structure and executed this modules:
(everything worked just fine)

Please Login or Register  to view this content.

**X*DG^&** · 09-13-2019, 02:40 AM

I'm a dimwit.
The first modified sub you've sent works perfectly of course.

It's just that I needed to change "*.xlsx" to "*.*"
My bad, your answer was perfect, thank you again!

VBA Module to copy all files from a folder and it's sub-folders into one location

LinkBack

Thread Tools

Rate This Thread

Display

VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Re: VBA Module to copy all files from a folder and it's sub-folders into one location

Thread Information

Users Browsing this Thread

Similar Threads

copy or cut pdf files from folders and subfolders into one single folder

Prompt User Folder Location and Store as Directory for Creating Folders

Different Hyperlinks as source folders to copy all files in new folder

Needs macro to copy excel files from folders, subfolders to new folder

create new folder at one location and copy photos in that folder from other location

Copy Files from one folder to different folders based on pdf file name

Moving multiple folders and files to different location

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions