madmasles
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dim log
dim pas
log=InputBox("Введите Ла-ла-ла:" & vbcrlf & vbcrlf & vbcrlf & "Например - Ла-Ла-Ла", "Настройка")
set fso = createobject("scripting.filesystemobject")
set resfile = fso.opentextfile("log.clk", 8, true)
resfile.write log
resfile.close
pas=InputBox("Введите Да-да-да:" & vbcrlf & vbcrlf & vbcrlf & "Например - Да-Да-Да", "Настройка")
set fso = createobject("scripting.filesystemobject")
set resfile = fso.opentextfile("pas.clk", 8, true)
resfile.write pas
resfile.close |
Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 06:42 25-07-2009 | Исправлено: madmasles, 09:19 25-07-2009 |
|
