Flasher
|
 Posted: Fri Jun 14, 2013 03:09 Post subject: |
 |
|
| LonerD wrote: | | В первую очередь - каким образом можно проверить наличие выделения в панели и сохранить первоначальное выделение если таковое имеется. |
Если ты внимательно читал, то там нет отслеживания выделения одного файла.
| LonerD wrote: | то N1 = 2,3 а N2 = 1
...
то N1 = 1,2,3 а N2 = 1 |
Нет. Там сравнивается только первый элемент массива > (0)(0) при условии If C = 3 And P1 = P2.
| LonerD wrote: | | не через запятую, разумеется, а каждый с новой строки |
Почему с новой?
Вообще-то там неверный алгоритм. Почему-то раньше работало (особо не тестировал тогда). Лучше так: | Code: | If C = 3 And P1 = P2 Then
If FSO.FileExists(P2) Then
With CreateObject("TCScript.Helper")
.LockTC True : .SendCommand(525)
For Each i in .GetSrcSelectedFiles(0)
If i = FSO.GetFileName(P1) Then
Test = 1 : Exit For
End If
Next : .SendCommand(525) : .LockTC False
End With : If Test Then WSH.Exec Ed Else WSH.Exec Ed & " " & P1
Else WSH.Exec Ed
End If
Quit
End If |
Один минус - если файл в папке один, то выделение ничего не даст.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Jun 14, 2013 11:11; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
