Писати

Напиши метод 'ТектСтреам пише наведени текст у датотеци ТектСтреам.

Напомена: Овај метод пише текст у датотеци ТектСтреам без размака или редова.

Напиши метод узима један параметар, односно текст који желите да пишете. Ево једног примера:

 Дим фс, Ф









 'Да направим инстанцу СЗС







 Поставите ФС = Сервер.ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")

 







 "Ја отворите датотеку







 Сет: Ф = фс.ЦреатеТектФиле ("Ц: \ тест.ткт", труе)









 "Пишем у







 ф.врите ("Здраво!")







 ф.врите ("Како сте?")









 'Затвори







 ф.цлосе









 "Ја очишћене







 Сет Ф = Ништа







 Поставите фс = Ништа

Фајл тест.ткт ће изгледати овако Након покретања горе код:

 



 Здраво, како сте?