'=====================================================================
' copy_current_dir_name2clip.vbs
' Копировать имя текущей папки в буфер
' В параметрах кнопки TC должно быть прописано:
' "%P"
' Необходим Script Helper ActiveX от Volniy
'=====================================================================
Option Explicit
Dim CurPath, CurDir, FSO, TCS
If WScript.Arguments.Count = 0 Then
MsgBox "Не указаны параметры!", vbOKOnly + vbError, "Внимание!"
Wscript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set CurPath = FSO.GetFolder(WScript.Arguments(0))
CurDir = CurPath.Name
Set TCS = CreateObject("TCScript.Helper")
TCS.SetTextToClip(CurDir)
Set FSO = Nothing
Set CurPath = Nothing
Set TCS = Nothing
Wscript.Quit |
