sa
|
 Posted: Sun Feb 21, 2010 19:29 Post subject: |
 |
|
Вот что получилось на скорую руку:
| Code: | ' Description: Вызов диалога пакетного переименования для файла под курсором
' Parameters: %N
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели инструментов TC
' Autor: sa
Option Explicit
If WScript.Arguments.Count < 1 Then
MsgBox "Курсор не должен располагаться на строке ""..""", _
vbOKOnly + vbCritical, "Вызов диалога пакетного переименования"
WScript.Quit
End If
Dim TCS, P_N
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendCommand 524 'cm_ClearAll
P_N = TCS.GetSrcSelectedFiles(True)(0)
If InStrRev(P_N,"\") = Len(P_N) Then
P_N = Left(P_N,len(P_N)-1)
End If
P_N = Right(P_N,Len(P_N)-InStr(1,P_N,"\"))
If (TCS.INIRead(TCS.MainINI, "Configuration", "ShowParentDirInRoot", 0) = 1) Or _
Instr(1,P_N,"\") > 0 Then
TCS.SendKeystroke "{INSERT}{HOME}{INSERT}"
TCS.SendCommand 2053 'cm_GotoNextSelected
TCS.SendCommand 1002 'cm_RenameOnly
Else
MsgBox "Нет "".."" в корневом каталоге диска! Диалог неприменим.", _
vbOKOnly + vbSystemModal, "Вызов диалога пакетного переименования"
End If
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit |
Last edited by sa on Mon Feb 22, 2010 06:30; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
