YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile("c:\testfile.txt", True) dtNow = Time() tt=Cstr(Right("00" & CStr(Hour(dtNow)), 2) & ":" & Right("00" & CStr(Minute(dtNow)), 2)) Do i=i+1 tf.Write ("This is a test№.="& i& "in time " & dtNow& vbcrlf) if i>5 then ' ограничение для проверки правильности и работоспособности, а не бесконечности tf.Close exit do end if Wscript.Sleep 1000 Loop While True | Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 11:04 30-11-2010 | Исправлено: YNY, 11:05 30-11-2010 |
|