Excel VBA: Move filenames listed in Column to Folder path in Contents of cell

[waxsublime]

Hi folks!

I was wondering if anyone happen to know or have a macro that can move files

Bad	Good
C:\Example\Bad	C:\Example\Good
alvin	simon
axiom	verisimilitude
austin	dallas

<tbody>
</tbody>

Row 1 = Title
Row 2 = Target Folder Path
Rows 3+ = file name to be moved to target folder in Row 1 of column

Each of these files listed are *.log files. The filename should be an exact match to name of file, but excluding the ".log". (For example, if "alvin" is listed in col A, the file "alvin.log" will be moved to folder: C:\Example\Bad).

I'm wanting to have three columns, sorting these files into three different target folders named in row 2.

It seems like an operation that might be useful in a wide variety of scenarios, but I couldn't find anything quite fitting this in my searches. Thanks in advance for any help.

 

[dermie_72]

http://www.mrexcel.com/forum/excel-...ications-moving-files-one-folder-another.html
http://www.mrexcel.com/forum/excel-...ications-moving-files-one-folder-another.html
http://www.mrexcel.com/forum/excel-...another-folder-visual-basic-applications.html
http://www.mrexcel.com/forum/micros...-one-folder-another-once-uploaded-access.html
http://www.mrexcel.com/forum/excel-...pplications-move-file-one-folder-another.html

hope they help

 

[waxsublime]

Thanks for the kind reply!

Yes, I looked through those threads before I posted here, but like I said, they aren't quite doing what I'm looking for. Namely, a conditional move based on file name lists.

 

[dermie_72]

it's a matter of using the move code, with an if statement surrounding it.

if file.name = X

or even if you have a field that has a list of names you want to copy.
if application.worksheetfunction.countif(range of name,file.name)>0 then
move the file.
else nothing

So long as you're using the right code to move the file, the if function will then determine which files go and which don't