View previous topic :: View next topic |
Author |
Message |
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sat Dec 31, 2016 15:46 Post subject: Создание цепочки папок из буфера обмена |
|
|
Всех с Наступающим!
Задача: Создавать из буфера вида "c:\Program Files\Total Commander\" вложенные папки, т.е в данном случае будет 3 папки: С/Program Files/Total Commander. Можно, конечно через F7 но там надо будет убирать двоеточие, а мы в разделе автоматизации. C dircopy тоже нужного результата не добился, да и это тоже лишние манипуляции.
И хотелось бы ещё второй вариант - создавать папки в текущей панели не из буфера, а исходя из того, какой путь у текущей панели. То есть те 3 папки будут создаваться, если находишься в деректории "Total Commander" |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Dec 31, 2016 22:03 Post subject: |
|
|
С наступающим!
Второе не понял. Т.е. C:\Program Files\Total Commander\C\Program Files\Total Commander ? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sat Dec 31, 2016 23:43 Post subject: |
|
|
Второе - в текущем каталоге создавать структуру вложенных папок, последняя из которых будет та, в которой и будет это создаваться. К примеру, путь активной панели "C:\Program Files\Total Commander\", тогда в папке Total commander должно создаваться три папки: С, в ней Program Files, а в ней Total Commander. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Jan 01, 2017 02:42 Post subject: |
|
|
Инет пропадал. Так пойдёт?:
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 |
|
|
Dimsok
Joined: 17 Aug 2014 Posts: 663
|
(Separately) Posted: Sun Jan 01, 2017 13:03 Post subject: |
|
|
Пойдёт, спасибо. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10315 Location: Россия, Саратов
|
(Separately) Posted: Wed Jan 25, 2017 11:07 Post subject: |
|
|
Заголовок темы заменён более точным. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
|