Getting error 70 access denied while trying to copy pdf files to a new folder

Question

I am writing a macro to find a list of around a thousand PDF files and copy them to a new folder. But every time I run the macro it gets stuck on the part of the code that c