Total Commander VBS copy full name npp format
На просторах интернета нашел vbs script.
Он копирует из Total Commander полный путь к файлу в буфер обмена в формате notepad++
Попробовал все работает.
Чтобы скрипт работал, нужно установить компоненту Script Helper ActiveX for TC beta12
http://wincmd.ru/plugring/script_helper.html
Затем Скрипт поместить в 1.vbs файл.
Файл скрипт можно перетащить на панель инструментов Total commander
Затем устанавливаем фокус на нужный нам файл.
Жмем иконку на панели инструментов TC скрипт отробатывает.
И у нас в буфере содержится полный путь к файлу в формате npp
Проблема, что в конце содержится символ перехода на новую строку.
Option Explicit 'https://docs.microsoft.com/ru-ru/dotnet/visual-basic/language-reference/statements/option-explicit-statement
Dim List, Cnt, Buf, CurDir, FullName
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
' ***********************************************************
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_CopyFullNamesToClip"
CurDir = TCS.GetSrcPath
TCS.SendCommand "cm_CopyFullNamesToClip", True
'MsgBox CurDir
'MsgBox TCS.GetTextFromClip
FullName = TCS.GetTextFromClip
FullName = "file:///" + FullName
FullName = Replace(FullName,"\","/")
FullName = Replace(FullName,vbCrLf,"")
'FullName = Replace(FullName,vbCr,"")
MsgBox FullName
WshShell.Run "cmd.exe /c echo " & FullName & " | clip", 0, TRUE
WScript.QuitПомогите поправить скрипт, чтобы удалить этот символ.
Пробовал следующие способы
FullName = Replace(FullName,vbCrLf,"")
FullName = Replace(FullName,vbCr,"")Но они не помогли.