// при создании ярлыков на рабочем столе добавляется слово Ярлык
// убираем данное слово во всех файлах lnk на рабочем столе
А  = Строки.Заменить(Компьютеры.Директории("%APPDATA%"), "AppData\Roaming", "Desktop");
Б1 = " - Ярлык";
Б2 = " - Shortcut";
Б3 = ".exe";
Т  = Файлы.Имена(А, "*.lnk",0, 1);
Для ПутьКФайлу Из Т Цикл
    Если (Строки.Найти(ПутьКФайлу, Б1)>0) Тогда
        ПутьКФайлу2 = Строки.Заменить(ПутьКФайлу,  Б1, "");
        ПутьКФайлу2 = Строки.Заменить(ПутьКФайлу2, Б2, "");
        ПутьКФайлу2 = Строки.Заменить(ПутьКФайлу2, Б3, "");
        Файлы.Переместить(ПутьКФайлу, ПутьКФайлу2);
        // Сообщить(ПутьКФайлу, ПутьКФайлу2);
    Конец;
Конец;