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
LonerD



PostPosted: Sun Sep 16, 2012 17:27    Post subject: Reply with quote

Quote:
Справился?

В какой-то мере. 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
перед и после присвоения параметров.
View user's profile Send private message Visit poster's website ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group