Flasher
|
Posted: Fri May 20, 2011 06:52 Post subject: |
|
|
shveicar wrote: | В данном случае я имел в виду скрипт позволяющий создать с помощью кнопки сразу 100 папок | >>>
Code: | ' Cоздать каталоги (с указанием их кол-ва) c именами выделенных
' папок/файлов вида "<имя_папки> (x)" с приращением x+1 по счётчику"
' Параметры: %L "<путь назначения>\" "первая цифра счётчика"
' Пример: %L "%T" 1
'=======================================================
Count = InputBox("Введите число копий для каждой папки",_
"Создание папок по счётчику")
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0), 1)
On Error Resume Next
Do While Not TempFile.AtEndOfStream
Set Folder = .GetFolder(TempFile.ReadLine)
Set File = .GetFile(TempFile.ReadLine)
For i=WScript.Arguments(2) to Abs(Count)+Abs(WScript.Arguments(2))-1
.CreateFolder WScript.Arguments(1)&.GetBaseName(Folder)&" ("&i&")"
.CreateFolder WScript.Arguments(1)&.GetBaseName(File)&" ("&i&")"
next
Loop
End With |
|
|