Desktop save with WScript.Shell and date as file name

Question

I am trying to have a file save to desktop without a path and can\'t get it to save using today\'s date. I am using the following code:

Sub SavetoDesktop() 
D