' создание группы папок с порядковым именем Dim moved ' определение объекта Dim i ' счетчик папок Set moved = CreateObject("Scripting.FileSystemObject")' определение объекта как принадлежащему классу файловой системы For i = 1 To 31 'папки будут называться с и по moved.CreateFolder(i) 'создание каталога Next ' следующее MsgBox "создание выполнено." 'выдача сообщения