oWsh = CreateObject("WScript.Shell") cDesktopDir = oWsh.SpecialFolders("Desktop") oLnk = oWsh.CreateShortcut(cDesktopDir + "\\Shortcut to Notepad.lnk") oLnk.TargetPath = cDesktopDir + "\\notepad.lnk" oLnk.Save()A que le llamas "crear carpeta del sistema"? Crear un directorio? Si es así puedes hacerlo de VFP con MD o MKDIR