sa
|
 Posted: Thu Sep 01, 2011 17:55 Post subject: |
 |
|
| LonerD wrote: | | тоже выход, хотя неуниверсальный |
Зато будет работать у тех, кому не нравится ситуация, когда при повторном щелчке на имени файла открывается окошко переименования и кто соответственно, добавил строку InplaceRename=0 в раздел [Configuration] файла wincmd.ini, чтобы она не возникала.
Add
Впрочем, способ вызова окошка переименования (повторным щелчком, командами cm_RenameOnly или cm_RenameSingleFile), и для запрашиваемого скрипта (программы) существенного значения иметь не должен.
Добавлю ещё вариант предложенного ранее скрипта, не требующий регистрации Helper-а.
| Code: | ' Описание: Переименовать файл/каталог под курсором в диалоге
' Параметры: %P%N
'Требования: 1.Для применимости диалога в корневом каталоге диска ключ
' ShowParentDirInRoot (файл wincmd.ini секция [Configuration])
' должен иметь значение 1.
' 2.Необходима утилита TCFS2 для вызова внутренних команд ТК.
Option Explicit
Dim WSH, TCFS2, P_N
Set WSH = CreateObject("WScript.Shell")
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
WSH.Run TCFS2 & " /ef tcm(524)", 1, True
P_N = WScript.Arguments(0)
If InStrRev(P_N,"\") = Len(P_N) Then
MsgBox "Курсор не должен располагаться на строке ""..""", _
vbOKOnly + vbCritical, "Переименовать файл/каталог под курсором в диалоге"
Set WSH = Nothing
WScript.Quit
End If
WSH.SendKeys "{INSERT}{HOME}"
Wscript.Sleep(100)
WSH.SendKeys "{INSERT}"
Wscript.Sleep(100)
WSH.Run TCFS2 & " /ef tcm(2053) tcm(1002) tcm(524)", 1, True
Set WSH = Nothing
Wscript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
