Total Commander

О спасибо!
Теперь все работает!

Batya писал(а):Кстати, что-то меня наводит на мысль, что исходным скриптом с учетом

Lari писал(а):поэтому взял какой-то пример и написал то, что хотел.

мог быть вот этот.

нет другой... в этом то задача решена по созданию папки, смысл его переписывать.

Результат вообщем-то тот же. В поле ввода имени папки (F7) вместо c:\games\ вводиться 3^\71-5 и как результат создается две папки 3^ и в ней 71-5

а вот этого вообще не понял:

2 DrShark

Не смотря на то, что CmdLine=1, приведенный код


WshShell.SendKeys "{RIGHT}"
WshShell.SendKeys "cd папка_которую нужно открыть"
WshShell.SendKeys "{ENTER}"


открывает последний файл в панели, а не указанную папку? Так как переход в командную строку по нажатию на "->" происходит ...

Volniy писал(а):Предполагаю: создается папка с именем файла под курсором и все выделенные файлы в нее перемещаются. Так?

так НО еще плюс к этому нужно зайти в эту папку.

Вообще-то команда cm_GoToDir на сколько я понял работает непосредственно с директорией находящейся под курсором.
Получается не подходит, т.к. после создания папки скриптом курсор на нее не устанавливается. Вот если бы создавать папку командой cm_mkDir без диалога ввода имени, то cm_GoToDir была бы ...

Славненько... м-да

2Volniy

по поводу

Set TempFile = FSO.OpenTextFile(CurFile, 1)
Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
Loop


и правда не совсем корректно... но в написании vbs не силен, поэтому взял какой-то пример и написал то, что хотел. Буду ...

скрипт собственно вот


Dim NewFolder, CurFile, FileName, CurPath, NPath, FSO, TempFile, SelFile
CurPath = WScript.Arguments(0) '%P
NewFolder = WScript.Arguments(1) '%O
CurFile = WScript.Arguments(2) '%L
FileName = WScript.Arguments(3) '%N

If NewFolder = FileName then
WScript.Quit()
End If ...

Здравствуйте!
Имеется vb скрипт для кнопки на панели инструментов, который создает папку с именем файла под курсором и перемещает в нее этот файл.
Подскажите пожалуйста как нужно его дополнить, чтобы при нажатии на кнопку на панели инструментов при нажатой клавише Shift автоматически перейти во ...

Хотел поинтересоваться. Планируется ли в ТС возможность изменить положение закладок каталогов, чтобы можно их было расположить не только сверху, но и снизу над кнопками горячих клавиш, а то верхняя часть и без того загружена.

с заменой все прекрасно работает.

по поводу ID3v2 может быть это подойдет http://www.zshare.net/download/3134767fe6612c/
правда там на delphi...

Batya

А на таких файлах ошибка стабильно повторяется?

да...

Вот пример файла http://www.zshare.net/audio/3132482f97dc39/

mp3tags.wsc - неплохой скрипт, но есть один большой недостаток он работает только с тегами ID3v1.1 и не поддерживает теги ID3v2.

И не совсем понятно с самим скриптом для кнопки.
Строка FSO.GetFile(File).Name = Mp3.Artist & " - " & Mp3.Title & ".mp3" срабатывает правильно не на всех файлах. Иногда ...

Поробовал применить плагин AudioInfo. Но чтобы переименовать файл необходимо вызывать диалог группового преименования, выбрать там шаблон и только потом переименовывать.

А можно ли сделать просто кнопку на панели инструментов - одно нажатие и файл (файлы) переименован по правилу "Исполнитель ...

Подскажите, пожалуйста, как можно сделать на панели инструментов конопку для изменения имени mp3 файла на основании информации из его тега (ID3v1.1 и ID3v2). Чтобы файл автоматически переименовывался в формат: "Исполнитель - Название песни" (или "№№ Исполнитель - Название песни")

В идеале хоелось ...

Спасибо