Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час
Public Function FUN_IN_TXT(Path_Name As String, Str As String) ' Создание файла и запись в имеющийся файл Dim ts Set ts = fso.OpenTextFile(Path_Name, ForAppending, True) ' если файла нет, он создаётся ts.Write (Str & vbCrLf) ' с новой строки ts.Close End Function
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.