Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час
Public Sub IMPORT() Dim i As Integer Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.CreateTextFile("C:\VERSII\" & ndir & "\" & nfil & ".rtf", True) For i = 1 To 40 f.writeline (" ") Next i 'f.FontSize = 12 f.writeline (" " & пппу) f.writeline (" " & ппсп) f.writeline (" " & ппфп) f.writeline (" " & ппдо) End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.