I am not 100% sure will these hints/procedures solve your issue, but I will recommend to check hints at Stack Overflow community:

https://stackoverflow.com/questions/17779004/cannot-export-data-to-a-file-in-r-write-csv

Thanks, Anton. I read the link, and use this command " attrib -r -s D:/writedata " to make the folder writable, but it seems not to work.

Get the key now. In the last line, " write.csv(type[[i]],outfile) "should be "write.csv(type[[i]],outfile[[i]])".