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

Материал из TCKB 2.0

Перейти к: навигация, поиск
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

Личные инструменты
Реклама