Создание большого количества каталогов с порядковыми номерами
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