Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Автоматизированное создание папок 
Author Message
Batya



PostPosted: Wed Sep 27, 2006 10:38    Post subject: Reply with quote

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 Smile
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group