Copy folder and paste to another folder

I am trying to do the same thing except my source directory changes with each operation.

my_path2 = (source directory)
my_save2 = (target directory)

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.copyfolder(my_path2, my_save2, True)

The directory gets copied except I get a Type mismatch error and my macro stops. I've tried all kinds of stuff and I can't get around the error.

Nevermind. Looks like I had some issues with my string not being formatted correctly. Works perfect now. Bob, your code help get me back on track. Thanks!