VB Code to Move Files

Hello:

Please refer to attached file.
I have lot of Stores and i have created Folder for each Stores to store scanned files
Main folder for each store is in C:\Dropbox\
and each store have sub folders listed in cell C6 down

For example :
Store1

C:\Dropbox\Store1
C:\Dropbox\Store1\BankStatement
C:\Dropbox\Store1\CDI
C:\Dropbox\Store1\DQStore_Rep

and so on...

Now I scanned all invoices etc for all stores once a week.
All Scanned files for all stores will be at location in cell E4:
C:\Dropbox\1Scanned\

Each scanned file will have names as follows:

mm-dd-yyyy-StoreName-Catagory.pdf

I need a VB Code to move the files to correct StoreName and correct category folder.

For Example:

10-22-2015-Store1-BankStatement needs to be moved from C:\Dropbox\1Scanned to C:\Dropbox\Store1\BankStatement
10-22-2015-Store3-CDI needs to be moved from C:\Dropbox\1Scanned to C:\Dropbox\Store2\CDI

Let me know if you have any questions.
Thanks.
RM

Hello rizmomin,

Here's a suggestion :

Please Login or Register  to view this content.

Hi GC:

While running the, it gives error at

Please Login or Register  to view this content.

Not sure why....would appreciate your help to check.
Also would like to add 2 features:
1. If the StoreName folder and Subfolder (Catagory) at destination does not exist then create one.
2. If the file name at the source does not meet the name specification then ignore that file and do not move.

NOTE : Just to let you know that the file name is in the following format:

10-22-2015-Store1_BankStatement instead of 10-22-2015-Store1-BankStatement as earlier mentioned.

Sorry for this..

Please let me know if you have any questions.
Thanks.

RM

Hi Riz,

You're correct about the error (copy paste error from my side).
I'll get back to you later tonight to create the folder and subfolder it they do not already exist. The files should already be ignored but I'll double check at the same time.

Hi Riz,

Here's an a new version of the code. The folders and subfolders will all be created automatically.
Fill will ignored if it doesn't meet the specification.

Let me know if you have any questions.

Please Login or Register  to view this content.

Hi GC:

Seems to work but it is creating all sub-folders (Catagory) for a STORE even if the files for that particcular catagory does not exist.
Example:

Currently i only have 1 Sub Folder (Catagory1) for STORE1
Now assume that the file which we will move has STORE1 with Catagory2.
In this case we need to create ONLY catogory2 in Store1 foldder.

The code currently creates all Catagory folders in STORE1.

Please let me know if you have any questions.
Thanks.

Riz

Hi Riz,

Sorry for the late reply, I was out of town yesterday... Here's an amended version of the code. Only the required folders will be created.

Please Login or Register  to view this content.

Hi Riz,

Again sorry for the late response... I was quite busy today :
Here's a new code to try to move all files to the destination (scanned) folder.
Note that the STORENAME/SUBFOLDERS are not deleted (is it required ?)

Please Login or Register  to view this content.

Simply remove this line of code :

Please Login or Register  to view this content.