Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Спасибо, то что нужно! Я просматривал файл wincmd.ini предварительно, но там этого параметра не было, теперь добавил, работает.sa писал(а):MultiRenameLoadSettings
Я когда искал ответ, Ваши напоминания чаще видел, чем полезные ответы. Не все ведь знают где искать, поискал и не нашел, за направлением поиска я и обратился.Avada писал(а):Кроме того, см. правила форума. Сначала ищем ответ в справке, потом задаём вопросы (если они останутся).
Просмотр wincmd.ini был пустой тратой времени, нужного ключа по умолчанию там быть не могло: отстутствие ключа разнозначно его применению со значением по умолчанию.parkone писал(а):Я просматривал файл wincmd.ini предварительно, но там этого параметра не было, теперь добавил, работает.
Направление поиска ясно задано (со ссылками) в универсальном полезном ответе — уже упоминавшемся пункте 12 правил форума, соблюдение которых, кстати, здесь является обязательным. Повторять на форуме то, что есть в справке и вполне доступно для прочтения, здесь никто не обязан. Источник — этот раздел. Ctrl+F. Поисковая строка — хотя бы шаблон. Искомый ключ отыскивается немедленно, он по порядку вхождений первый.parkone писал(а):Я когда искал ответ, Ваши напоминания чаще видел, чем полезные ответы. Не все ведь знают где искать, поискал и не нашел, за направлением поиска я и обратился.
Код: Выделить всё
TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Utilities\Lst2Str\ReReName.wsf"
%S
shell32.dll,66
...
1
-1
Код: Выделить всё
'=============================================================================
' Добавить/убрать спереди имён выбранных в панели элементов знак подчёркивания
' Параметр: %WL
'=============================================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each F in Split(.GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
FN = .GetFileName(F) : If InStr(FN, "_") = 1 Then NN = Mid(FN, 2) Else NN = "_" & FN
If .FileExists(F) Then .GetFile(F).Name = NN Else .GetFolder(F).Name = NN
Next
End With : CreateObject("WScript.Shell").SendKeys "^R"
конечно vbs устроит.
Да.А из ТС папка нормально переименовывается?
Код: Выделить всё
TOTALCMD#BAR#DATA
cmd /c
ren %N _%N
shell32.dll,134
Rename Folder / File Under Cursor into _FileName
1
-1
Вот это помогло. Теперь всё работает на ура.В скрипте был лишний код, убрал.
Код: Выделить всё
<?xml version="1.0" standalone="yes" encoding="utf-8"?>
<job id="rrn" version="0.1">
<object id="f" progid="Scripting.FileSystemObject" />
<script type="text/jscript" language="JScript"><![CDATA[
for(var i=0;i<WScript.Arguments.length;i++){
if(f.fileExists(WScript.Arguments(i))){
if(f.getFile(WScript.Arguments(i)).name.substring(0,1)=='_'){
f.getFile(WScript.Arguments(i)).name=
WScript.Arguments(i).substring(1);
}else f.getFile(WScript.Arguments(i)).name='_'+WScript.Arguments(i);
}else if(f.folderExists(WScript.Arguments(i))){
if(f.getFolder(WScript.Arguments(i)).name.substring(0,1)=='_'){
f.getFolder(WScript.Arguments(i)).name=
WScript.Arguments(i).substring(1);
}else f.getFolder(WScript.Arguments(i)).name='_'+WScript.Arguments(i);
}
}
]]></script>
</job>