Flasher
|
 Posted: Tue Aug 28, 2018 12:37 Post subject: |
 |
|
Kot_Matraskin
Т.е. как? Вы не знаете, как работать с контентными плагинами? Это справочный материал: 1, 2.
Вывод на панель в отношении текущей папки может подразумевать только быстрый просмотр при постановке курсора на [..] (имеющиеся wlx-плагины в плане информативности ограничены и для поставленной задачи не подходят), иначе к открытой папке доп. информацию из ТС стандартным способом не получить. Папка должна быть элементом списка в родителе.
 Если нестандартным, то, например, так: | Code: | '================================== VBS ==================================
' Показать реальный и символьный пути каталога активной панели
' Условие: пустое поле "Путь запуска:" кнопки или пользовательской команды
'=========================================================================
Set WSS = CreateObject("WScript.Shell")
If LCase(Right(WSH.FullName, 11)) = "wscript.exe" Then WSS.Run "cscript.exe //NoLogo """ & WSH.ScriptFullName & """", 0 : WSH.Quit
With CreateObject("Scripting.FileSystemObject")
CP = .GetAbsolutePathName("") : N = .GetFileName(CP) : PP = .BuildPath(.GetParentFolderName(CP), "\")
End With
SP = CreateObject("OlePrn.OleCvt.1").ToUnicode(WSS.Exec("cmd /c echo off&for /f ""tokens=2 delims=[]"" " &_
"%# in ('dir """ & PP & """ /al^|findstr /irc:""<[C-Y]*> *" & N & " \[""') do echo %#").StdOut.ReadLine, 866)
If Len(SP) Then SP = "Реальный:" & vbTab & SP & vbCr & "Символьный:" & vbTab
MsgBox SP & CP, 4160, " Путь каталога активной панели " |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
