VBA Copying Files

[titoexcel]

Hi,

I am fairly new to VBA and just now reading books and practicing. I have been asked to help build a macro that will do the following:

Zip File inbound - we will get a zipfile of bank statements about 500 statements. Each file has a unique account number

• I want to copy each one of these files to specific locations on shared drive.
  • So if file name is 123323act. I want to copy this file and put it in a folder that has that account number as unique identifier.
    • we would have about 500 of these files on monthly basis.
    • Also, i am not sure the process would be if we were to add one more file so it would be 501 and how macro will pick that up and place in the correct folder?
    • Any help would be greatly appreciated. I can provide what i started but its not much.

Regards,

Tito

 

[wigi]

Here is code for you to inspect and experiment with:

Sub wigi()    
    c00 = "C:\Users\tm1user2\Downloads\" 'SOURCE FOLDER
    c01 = "C:\Wim\" 'TARGET FOLDER
    
    On Error Resume Next
    
    file = Dir(c00 & "*")
    While (file <> "")
            vFilename = CreateObject("scripting.filesystemobject").GetBaseName(c00 & file)
            MkDir c01 & vFilename
            FileCopy c00 & file, c01 & vFilename & "\" & file
    file = Dir
    Wend


End Sub

 

[wigi]

Any update to my post please?