oShell = CreateObject("WScript.Shell") lcDesktopFolder = oShell.SpecialFolders("Desktop") oFso = CreateObject("Scripting.FileSystemObject") lcFile = FULLPATH("test.txt") oFSO.CopyFile(lcFile, ADDBS(lcDesktopFolder), .T.)Check also How do I get the path of special folders from Windows FAQ #16022 and How do I retrieve special folders without relying on Shell.Application? FAQ #16115.