>Local loWSH As WScript.Shell, lcStartupDir, loLnk >loWSH = Createobject("WScript.Shell") >lcStartupDir = loWSH.SpecialFolders("AllUsersStartup") >loLnk = loWSH.CreateShortcut(Addbs(lcStartupDir) + "Auto Backup - Folhamatic.lnk") >loLnk.TargetPath = "Y:\folhawin\backup\autobkp\autobkp.exe" >loLnk.WorkingDirectory = "Y:\folhawin\backup\autobkp" >loLnk.Save() >Store Null To loLnk, loWSH >>