Batya

|
Posted: Wed Sep 27, 2006 10:38 Post subject: |
|
|
| advin wrote: | | а если надо создать допустим большой диапазон от 1_1_1 до 9_9_9 |
| CaptainFlint wrote: | | Тогда скрипт или батник. |
vbs-скрипт:
| Code: | '=============================================================
' Создание в текущем каталоге папок с именами 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 |
Папки будут создаваться в каталоге "Путь запуска" кнопки. Если он пуст, то в текущем каталоге TC.
| advin wrote: | | тут папок больше тыщи |
Странно, а мне казалось, что 999 - 110 = 889  |
|