Создание большого количества каталогов с порядковыми номерами

Q: Нужно создать большое количество каталогов с именами 1_1_1, 1_1_2 и до 9_9_9. Подскажите как?

A: Скрипт на VBS:

'=============================================================
' Создание в текущем каталоге папок с именами 1_1_1 ... 9_9_9
'=============================================================

Option Explicit
Dim FSO, i
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = 111 To 999
FSO.CreateFolder i \ 100 & "_" & (i Mod 100)\ 10 & "_" & (i Mod 10)
Next

Set FSO = Nothing
WScript.Quit

Batya