Копирование имени без слеша

[Flasher]

Но последний барахлит на FTP ресурсах.

Вот поэтому мы его и не берём. Внёс некоторые коррективы:

Код: Выделить всё

'===================================================
' Копировать имена выделенных папок/файлов
' Необязательный параметр (добавлять пути): 1
'================= Путь к TCFS2 ====================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'===================================================
For Each OS in GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("Select OSArchitecture from Win32_OperatingSystem")
    If Left(OS.OSArchitecture,2) <> 32 Then x64 = "\Wow6432Node"
Next
P = "\Software" & x64 & "\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
P1 = "HKCU" & P : P2 = "HKLM" & P
If WScript.Arguments.Count Then Num = "2021" Else Num = "2017"
With CreateObject("WScript.Shell")
  .Run TCFS2 & " /ef tcm(" & Num & ")""",, True
  A = .RegRead(P1) : If Trim(A) = "" Then A = .RegRead(P2) : P1 = P2 : End If
  If A > 0 Then .RegWrite P1, 0, "REG_DWORD"
  With CreateObject("InternetExplorer.Application")
    .Navigate("about:blank") : Clip = .document.Parentwindow.ClipboardData.GetData("text")
    List = Replace(Clip, "" + chr(13), chr(13)) 
    List = Replace(List, "/" + chr(13), chr(13))
    R = Right(List, 1) : If R = "/" Or R = "" Then List = Left(List, Len(List) - 1)
    .document.ParentWindow.ClipboardData.SetData("text"), List
    .ExecWB 45, 2 : .Quit
  End With : If A > 0 Then .RegWrite P1, A, "REG_DWORD"
End With

[skyinfire]

Теперь на одном компьютере по-прежнему со слешем в конце
"папка\", а на другом ошибку выдает

http://screencast.com/t/Fwv03N3ohb

оба win7х64, хотя хочется, чтобы этот механизм работал независимо от операционной системы (на любом компе).

[Flasher]

skyinfire
Если бы у меня был в доступе x64, то уже бы всё сделал. Мне надо узнать, откуда подхватываются зоны. Учётка - админ?
Есть ещё вариант с clip, но её нет на XP. На XP тоже нужно?

[skyinfire]

написал в ЛС

[skyinfire]

Flasher
Скажите, ждать ли обновления скрипта?

[Flasher]

skyinfire
Пока не решён вопрос в ЛС, какой смысл ждать чего-то здесь?
Написать в ЛС - написал, а прочесть ответ и продолжить диалог - кто?

[Flasher]

skyinfire
Тут на руборде утилиту вспомнили, но она не работает с %WF/%UF/%WL/%UL, а так бы был нормальный вариант (с кириллицей проблемы).

Код: Выделить всё

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Lst2Clip\Lst2Clip.exe /RB
/L:"%F"
Utils\Lst2Clip\Lst2Clip.exe
Копировать имена файлов и папок без бэкслеша