'======================= 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 |