Copy files from one folder to another using VBA.

[Kylen]

Hi everyone,
I need to copy files from one folder to another using VBA.

I have a folder with a lot of csv files with different names. I want to copy files when part of the filename is the same as value in cell D2. It will be up to 4 files that contain that value in D2. I want to create a new subfolder with the same name as in cell D2 and copy matching files to it.
Let’s say all csv files are in C:\test\ and I want to copy them to C:\test\”D2 value”\

Is there anyone that know if it’s possible or how to do it?

Using Excel 2010.

 

[Fazza]

how about

v = Shell("CMD /C ROBOCOPY C:\test\*" & range("D2").Value2 & "*.csv C:\test\" & range("D2").Value2, 1)

HTH

 

[Kylen]

Hi Fazza,
I can’t get it to work with your line but I’m not sure how to do it either. I guess I need to add something more to the script?
//Kylen

 

[Fazza]

Though it looks OK to me, I didn't test it. Nothing needed other than that line.

I'll test it next week: maybe I'm missing a character. Such as : or \. Or some simple blunder..

 

[Fazza]

A missing space. This tested OK.

v = Shell("CMD /C ROBOCOPY C:\test\ *" & Range("D2").Value2 & "*.csv C:\test\" & Range("D2").Value2, 1)

If not OK for you, please post sample of file names & "D2" entry. Thanks

 

[Kylen]

Hi,

It's working fine but is it possible to modify so it doesn't create a folder if it can't find a file that contain that name? It creates a folder even if there is no file to copy.
Is it possible to do the same further down in column D, D2, D3 D4 and down until no value in cell?

Many thanks for you help!