PowerPoint SaveAs Dialog

I want to display the SaveAs dialog box in PowerPoint 2010. I also want to set the default folder. I'm using the following code, but the folder remains the folder of the open presentation. What must I do differently, or is there a better way to approach this? Thanks.