Move Multiple Files into Specific Location Based On Criteria

Hi all

I was wondering if I could get some help on this. I want to move multiple files into sub folders of the same name using Excel VBA. So for example, If I have workbooks called Barry Allen and Wally West, I want to move them into sub folders called Barry Allen and Wally West using Excel VBA.

I hope that makes sense.

Thanks,

Shak

Hi Shak,

Just to be sure i get your meaning
you have multiple files with same name? is the difference? eg. wally west,wally west(1), wally west(2) OR wallywestsomething, wallywestorOther etc).
So you have say 2 folders, 1 = Barry Allen, 2 = Wally West.
you have multiple workbook files relating to either of these two folders.
these files are identifiable as belonging to these 2 folders as they have the same names somewhere in the naming text string (workbook file name)

1. are all these workbook files in one folder at the moment? (so as to tell vba path of source)

Hi Brian

Thank you for your reply. I have multiple files with different names like Barry Allen and Wally West (all saved in the same location), all these files have corresponding sub folders in a different location, and I essentially want to match and move the file into the corresponding sub folder that matches the name of the file (The sub folders are in the same location as well)...

Does that make sense?

Thanks, Brian! I've used, I didn't get any errors, or at least nothing that I couldn't fix, but it didn't move the workbooks into the sub folders of the same name. I've amended the code slightly. See below: - Any ideas?

Please Login or Register  to view this content.

this line

If Left(fso.GetFileName(Thisfile.Path), 3) = "sql" Then

sql should be your file name

Hi Brian

Sorry new-ish to VBA, so sorry if I am being an idiot or simple. So should the file be named 'sql' rather the examples (Barry Allen or Wally West) I gave above or am I missing the point? Do I need to amend file names?

ok.
no worries.
firstly, have you confirmed that the code is pointing to your specific source folder and target folder paths.
these two lines:

Please Login or Register  to view this content.

if the path is to your satisfaction, comment the two lines back out.

Now the if condition in question is the search through the files in the old file path folder (olfpath) and uses their file names to find a match string of text.
so..

Please Login or Register  to view this content.

to answer your previous question, this line: Left(fso.GetFileName(Thisfile.Path), 3) = "sql" is the file name string checker.
it says look in the olfpath and test the first three characters of all the files in the olfpath folder.
if any of those files names begin with "sql" then copy .......
i believe yours are different, i would imagine something like: Left(fso.GetFileName(Thisfile.Path), 15) = "wally*"
This would mean that it would be nice to have a set standard for your file names for ease. (this is why i asked how your files are named yesterday.)
there is still a bit more to do to the code to adapt it to check for different cases to test against eg if the file is a diferent name change folder path of paste.

Also, i believe the file paths in the variables: olfpath and newfpath are crucial to this and i must admit i have never referenced a range in a file path as you have so, very interested to know what the results of your debug.print line for these variables is.

Hi Brian

Still can't seem to get it to work, I'll keep trying. In the meantime, just to let you know, the File Paths worked fine.

if you get the chance shak, please explain what your intention is with the string paths held by the variables olfpath and newfpath. i mean this with regard to the sheet and range reference, reason is there may be an alternative way to do that.
secondly, the if condition would also be interesting to see what your changes are.