r - downloading multiple files into separate subfolders with foreach - error with setwd

Question

I have the following code which downloads a link into the appropriate folder > subfolder. This code works great although it is very slow. I have a couple of hundred .zip