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
universal007



PostPosted: Sun Jul 19, 2009 07:31    Post subject: Reply with quote

Batya wrote:
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

Папки будут создаваться в каталоге "Путь запуска" кнопки. Если он пуст, то в текущем каталоге TC.


Хотел из этого скрипта сделать так, что бы создавалась одна папка
с именем Архив. Но всё что смог так только 0Архив0 или 1Архив1.
Где я ничего не понимаю?
Спасибо.
_________________
universal007
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group