LonerD
|
Posted: Sun Sep 16, 2012 17:27 Post subject: |
|
|
В какой-то мере. InputBox с диалогом: "Введите файл-источник: 1 - в активной панели, 2 - в пассивной".
Каким образом "рисовать окно с кнопками Пассивная/Активная" и присваивать переменной определённое значение при нажатии на одну или вторую кнопку - пока не знаю.
В общем, может кому пригодится.
Строку:
Code: | File = .Item(0) : List = .Item(1) : Count = .Item(2) |
заменить на
Code: | FileA = .Item(0) : File = .Item(1) : List = .Item(2) : Count = .Item(3) : Source = .Item(4) |
Перед Set FSO добавить:
Code: | If Source = 0 Then Source = InputBox("Enter Source File or Dir:" & vbNewLine &_
"1 - Source file in Target panel" & vbNewLine &_
"2 - Source file in Active panel", "Source", 1)
On Error Resume Next
If Source = 2 Then
File = FileA
ElseIf Source <> 1 Then WScript.Quit
End If |
Параметры запуска:
Code: | ' Параметры: %V %T%M %WL <индекс замены> <индекс файла-источника>
' Индекс файла-источника принимает следующие значения:
' 1 - файл-источник - это выбранный файл пассивной панели
' 2 - файл-источник - это выбранный файл активной панели
' 0 - выдаётся запрос на указание файла-источника |
Quote: | случая с выделенными файлами в пассивной панели |
Мне не надо.
Кстати, а если без Хэлпера, то можно ведь обойтись и nircmd.
Прописать выполнение команды Nircmd sendkeypress tab
перед и после присвоения параметров. |
|