Копирование в буфер обмена пути в кратком формате

Материал из TCKB 2.0

Перейти к: навигация, поиск
Q: Часто бывает нужно скопировать путь в формате DOS (~1), как можно в TC это быстро сделать?
A: Можно использовать следующий vbs-скрипт:
'==============================================================================
' Добавление в буфер обмена содержимого переданного в качестве параметра файла
'
' В качестве параметра может быть передано:
' %l
'==============================================================================
Option Explicit
If WScript.Arguments.Count = 0 Then
MsgBox "Необходимо в качестве параметра передать имя файла", _
vbOKOnly + vbExclamation, _
"Чтение в буфера обмена"
WScript.Quit
End If
Dim TCS, Clipboard, FSO, OTF
Set TCS = CreateObject("TCScript.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
 
Clipboard = OTF.ReadAll
OTF.Close
TCS.SetTextToClip(Clipboard)
 
Set TCS = Nothing
Set FSO = Nothing
Set OTF = Nothing
WScript.Quit


Batya

Личные инструменты
Реклама