Advertisement
GrandtherAzaMarks

ХламоТворец

Feb 8th, 2018
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1.  
  2. &НаКлиенте
  3. Процедура ОК(Команда)
  4. ПодключитьОбработчикОжидания("Таймер",1);
  5. КонецПроцедуры
  6.  
  7. &НаКлиенте
  8. Процедура Таймер()
  9. Ч = Час(ТекущаяДата());
  10. М = Минута(ТекущаяДата());
  11. С = Секунда(ТекущаяДата());
  12. Текст = Новый ТекстовыйДокумент;
  13. Текст.Записать("C:\хлам0000\" + Ч + "_" + М + "_" + С + ".txt");
  14.  
  15. КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement