LOCAL loWSShell as WScript.Shell,lcSSFolder loWSShell = CreateObject("WScript.Shell") lcSSFolder=ADDBS(loWSShell.SpecialFolders("Desktop")) ? lcSSFolder