View previous topic :: View next topic |
Author |
Message |
shveicar

Joined: 18 Apr 2011 Posts: 277 Location: Россия Москва
|
(Separately) Posted: Sun Jul 24, 2011 16:32 Post subject: |
|
|
Добрый день. Подскажите, можно ли в данный скрипт добавить окно - с вводом количества выделяемых файлов? Спасибо.[/quote] |
|
Back to top |
|
 |
Rodny

Joined: 24 Jan 2007 Posts: 949 Location: Могилёв, Беларусь
|
(Separately) Posted: Sun Jul 24, 2011 17:04 Post subject: |
|
|
shveicar
Можно.
В параметр кнопки написать, например, "?100" без кавычек, существенное здесь - вопросительный знак.
В скрипте Code: | Const NumbFiles = 20000 ' Число выделяемых файлов
Dim Files, TCS, Selection
Set TCS = CreateObject("TCScript.Helper") | заменить на
Code: | Dim Files, TCS, Selection, NumbFiles
Set TCS = CreateObject("TCScript.Helper")
NumbFiles = CInt(WScript.Arguments(0)) ' Число выделяемых файлов из параметров
|
|
|
Back to top |
|
 |
shveicar

Joined: 18 Apr 2011 Posts: 277 Location: Россия Москва
|
(Separately) Posted: Sun Jul 24, 2011 18:28 Post subject: |
|
|
Большое Спасибо! все работает. |
|
Back to top |
|
 |
|