VBA Code to Move Individual Files from 1 Folder to a new Folder

Hi All

New to the Forum so howdy everyone

I have 6 individual folders each with up to 150 .jpg files, what I need to accomplish is to move the first file in each individual folder 1-6 into a new folder called 1 ie new folder 1 will then have 6 new files which were the first files in each folder, and then proceed to the second file in each folder and loop until done. I hope this makes sense and can be done in VBA.

I would appreciate any help

Thanks

Hello mehmetcik,

Thank you so much for your quick response - it is much appreciated

Quick question i have placed the code in a new workbook in "this Workbook" module I am getting an error at set fsoFolder

Runtime error 76 "path not found"

Sorry i am a total newbie so I might be getting something totally wrong

I have created a new folder on my Desktop and named the folders as you explained\

Thank you in anticipation for your assistance

Hello JBeaucaire

Thank you for your response and assistance in answer to your questions :
1) Is there some relationship between the file to be taken from each of the 6 folders? Names perhaps? Some worksheet listing their relationship? - These files are all consecutively numbered .jpegs each folder containing the exact same amount of .jpegs upto 150 off in each
2) Can you list the full path to the 6 folders? I can put the folders anywhere on the C:; drive
3) Can you explain how the new folder should get its name? Related in some way to the names of the files being moved? Each new folder should be numbered 1 to 150 ie the same as the qty of jpegs
4) What is the full path to where these new folders will reside? They can reside anywhere on c:

I would like the jpegs to be renamed as they are moved for consistency ie, First jpeg in Original folder 1 to be named 1_1.jpeg First in Folder 2 to 2_1 etc thro to 6_1.jpeg all these 6 into Newfolder named 1

I hope this makes sense

Thanks again for the assistance

The workbook must be in the same folder as the 7 folders that I discussed

So in that folder you will have 7 folders and one workbook

Hi - Thanks Yes I have them all in the same folder on my Desktop

try putting them in a folder on your desktop

Ahhh your folder names are wrong. Folder1, Folder2, etc

if you want spaces then you need to modify my code

Get it working as I had it first.

Hi mehmetcik

Thank you for your reply - as per the image above I have placed all the files in a folder on my desktop. I had previously overlooked your demo Output worksheet which i have now downloaded and also tried - I am still getting the same error ie it does not pickup the directory path is there a way to possibly hardcode this??

Your Folder names are wrong. I specified Folder1 you have Folder 1

Wow - my bad thanks that worked wonderfully all files moved into the output folder Thank You
Now one last thing I need to put each set of 6 new files in the output folder in a folder named 1 through to x
Thank yo that has saved me a huge amount of time and so simple

Are you asking for the code to be modified?

If so what exactly do you need?

Hi -Yes please I need the new files in output to be in their own folders
ie Files 1-1 thro 1-6 into subfolder New1, files 2-1 thro 2-6 in subfolder New2 and so on... all in the Output folder ie I will then have x number of folders each with 6 files in them

Thanks for your patience

Ok try this code.

Please Login or Register  to view this content.

Thank you sir , that works perfectly

Much appreciated

This version gives you a counter at the bottom of excel.

Please Login or Register  to view this content.

i need a similar application

move a list of file names listed in colmn A to a new folder

Source folder contains around 50000 pics
and list contain 1000 file names(123.*,4789.*).
pls help me to make a code