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 

Создание цепочки папок из буфера обмена

 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sat Dec 31, 2016 15:46    Post subject: Создание цепочки папок из буфера обмена Reply with quote

Всех с Наступающим!

Задача: Создавать из буфера вида "c:\Program Files\Total Commander\" вложенные папки, т.е в данном случае будет 3 папки: С/Program Files/Total Commander. Можно, конечно через F7 но там надо будет убирать двоеточие, а мы в разделе автоматизации. C dircopy тоже нужного результата не добился, да и это тоже лишние манипуляции.

И хотелось бы ещё второй вариант - создавать папки в текущей панели не из буфера, а исходя из того, какой путь у текущей панели. То есть те 3 папки будут создаваться, если находишься в деректории "Total Commander"
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sat Dec 31, 2016 22:03    Post subject: Reply with quote

С наступающим!

Второе не понял. Т.е. C:\Program Files\Total Commander\C\Program Files\Total Commander ?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sat Dec 31, 2016 23:43    Post subject: Reply with quote

Второе - в текущем каталоге создавать структуру вложенных папок, последняя из которых будет та, в которой и будет это создаваться. К примеру, путь активной панели "C:\Program Files\Total Commander\", тогда в папке Total commander должно создаваться три папки: С, в ней Program Files, а в ней Total Commander.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Jan 01, 2017 02:42    Post subject: Reply with quote

Инет пропадал. Так пойдёт?:
Code:
'======================= VBS =======================
' Cоздать в каталоге активной панели путь с цепочкой
' из буфера обмена при наличии, иначе из него самого

' Условие: путь запуска - пустой
'===================================================
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
  Dir = .CurrentDirectory : On Error Resume Next
  A = .RegRead(R): If A > 0 Or Err.Number <> 0 Then .RegWrite R, 0, "REG_DWORD"
  Path = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
  If A > 0 Then .RegWrite R, A, "REG_DWORD"
  On Error Goto 0 : If InStr(Path, ":\") <> 2 Then Path = Dir
  Dirs = Replace(Path, ":", "")
With CreateObject("Shell.Application")
  If VarType(.NameSpace(Dir & "\" & Dirs)) = 9 Then .NameSpace(Dir).NewFolder(Dirs)
End With : .SendKeys "^r" End With
Можно, конечно, и кнопками:
Code:
TOTALCMD#BAR#DATA
nircmd.exe execmd
set "P=%P"&&call md "%P%%P::=%%"&&nircmd.exe sendkeypress ctrl+r
wcmicons.dll,78
Продублировать цепочку активного каталога
%COMMANDER_PATH%\Utils\nircmd\
Code:
TOTALCMD#BAR#DATA
nircmd.exe execmd set "P=~$clipboard$"&&call md
"%P%%P::=%%"&&nircmd.exe sendkeypress ctrl+r
wcmicons.dll,77
Создать цепочку каталогов|из буфера в активной панели
%COMMANDER_PATH%\Utils\nircmd\

_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.


Last edited by Flasher on Mon Jan 02, 2017 00:08; edited 1 time in total
Back to top
View user's profile Send private message
Dimsok



Joined: 17 Aug 2014
Posts: 663

Post (Separately) Posted: Sun Jan 01, 2017 13:03    Post subject: Reply with quote

Пойдёт, спасибо.
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Wed Jan 25, 2017 11:07    Post subject: Reply with quote

Заголовок темы заменён более точным.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group