Batya
|
 Posted: Tue Feb 07, 2006 11:47 Post subject: |
 |
|
Пока семерка не вышла могу предложить скрипт:
| Code: | '=================================================
' Создание папки в текущей панели TC с именем,
' похожем на имя текущей папки или файла
' В параметрах вызова из TC должно быть прописано
' (2 параметра через пробел):
' %P %N
'=================================================
Dim FSO, Fold, NewPath, Input, Mes
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fold = FSO.GetFolder(WScript.Arguments(0))
Input = InputBox("Введите имя создаваемой папки", "Создание папки", WScript.Arguments(1))
If Input <> "" Then
NewPath = Fold.Path & "\" & Input
If FSO.FolderExists(NewPath) or FSO.FileExists(NewPath) Then
Mes = MsgBox("Папка или файл с таким именем уже существуют", vbExclamation, "Создание папки")
Else
FSO.CreateFolder(NewPath)
End if
End if
Set FSO = Nothing
Set Fold = Nothing
Wscript.Quit()
|
Нужно сохранить содержимое в файл *.vbs, повесить вызов этого файла в меню "Запуск" TotalCommander-а, на этот пункт меню через настройки повесить горяч. клавишу Shift+F7.
Единственное ограничение - после создания нужно будет обновить вид панели вручную. (Можно, конечно, обновлять и скриптом, но не хотелось его сильно усложнять.) |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
