Rodny

|
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)) ' Число выделяемых файлов из параметров
|
|
|