v7: Ярлык на каталог

 

	РабочийКаталог = "D:\Work\";//Где будет ярлык

        Каталог = "D:\Base 1c\v77\Food";//ярлык на что 



	Shell = СоздатьОбъект("WScript.Shell");

	Link = Shell.Createshortcut(РабочийКаталог + "MyWorkLink.lnk");

	Link.Arguments = "";

	//Link.Description = "Тестовый пример";

	//Link.HotKey = "CTRL+ALT+SHIFT+X";

	//Link.IconLocation = "";

	Link.TargetPath = """"+Каталог+"""";

	Link.WindowStyle = 1;

	//Link.WorkingDirectory = РабочийКаталог ;

	Link.Save();