When starting "SaveAsPDFwFolderSelection.swp" I get errorwindow below

How can i solve this? I'm a BEGINNER in API and learning day by day

Please find attached the macro wich i used and downloaded from the internet.

btw I'm using SW2015 SP4.0