Упражнение 5. Работа со встроенными функциями

Функция Rnd() в VBScript: самостоятельная работа

Откройте сохраненный скрипт loops.vbs и измените его таким образом, чтобы запись производилась в файл на диске "C:" со случайным образом сгенерированным именем. При этом имя должно состоять из 8 цифр и расширения "log". Убедитесь, что при следующем запуске скрипта генерируется новое имя для файла.

Ответ к упражнению 5. Работа со встроенными функциями

Итоговый код скрипта может быть таким:

Dim oFso

Dim oMyFile

Dim nCounter

Dim sLine

Dim sFileName

sLine = InputBox ("Введите строку")

nCounter = InputBox("Введите значение счетчика")

Randomize()

sFileName= Int(Rnd() * 100000000) & ""

Set oFso = CreateObject("Scripting.FileSystemObject")

Set oMyFile = oFso.CreateTextFile("C:\" & sFileName & ".log")

For nCounter = 1 To 10

    oMyFile.WriteLine(sLine)

Next

Получить учебные материалы по этому курсу