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

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