Dim WSH As Object
Dim strPath as string

Set WSH = CreateObject(“WScript.Shell”)
strPath = WSH.SpecialFolders(“Desktop”) & “\”