[SendMessage]

Jahnhoy, могу предложить решение на WSH:

читать дальше »

Код:

' Запуск:
' wscript.exe маршрут_скрипта обрабатываемая_папка1 [обрабатываемая_папка2] [...]

Option Explicit

Const EXT_FILTER = "*.mp3; *.flac; *.ape; *.wv"

If WScript.Arguments.Length Then
  Dim objShApp
  Dim objFSO
  Dim objOC
  Dim i
    Set objShApp = CreateObject("Shell.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objOC = CreateObject("OlePrn.OleCvt.1")
    For i = 0 To WScript.Arguments.Count - 1
      RecDirs objFSO.getfolder(WScript.Arguments.Item(i))
    Next
    Set objShApp = Nothing
    Set objFSO = Nothing
    Set objOC = Nothing  
End If

MsgBox "Скрипт отработал."

WScript.Quit

Sub RecDirs(sDir)
  Dim SubDir
  Dim arrFiles
  Dim i
    For Each SubDir In sDir.SubFolders
      RecDirs(SubDir)
    Next
    Set arrFiles = objShApp.NameSpace(sDir.Path).Items
    arrFiles.Filter 192, EXT_FILTER
    For i = 0 To arrFiles.Count - 1
      CreateAplFile arrFiles.Item(i).Path
    Next
End Sub

Sub CreateAplFile(fPath)
  Dim aplFile
  Dim aplFileName
    aplFileName = objFSO.GetParentFolderName(fPath) & "\" & objFSO.GetBaseName(fPath) & ".apl"
    If Not objFSO.FileExists(aplFileName) Then 
      Set aplFile = objFSO.CreateTextFile(aplFileName)
        aplFile.Write "[Monkey's Audio Image Link File]" & vbCrLf & _
                      "Image File=" & objOC.ToUtf8(fPath) & vbCrLf & _
                      "Start Block=0" & vbCrLf & vbCrLf & _
                      "----- APE TAG (DO NOT TOUCH!!!) -----"
      aplFile.Close
    End If
End Sub

[Jahnhoy]

SendMessage, спасибо огромное вам, мне то всеравно, на чем, главное чтоб работал, только вот с ним есть небольшые проблемки почасти unicode'а. Во первых он создает файлы .apl в кодировки ANSI (по крайне мере так показывает notepad++) и выдает ошибку если встречает файлы по типу 01. Transe Amazônico.mp3. А во вторых ну это не ошибка конечно, но можно ли в "Image File=" вписывать не полный путь до файла, а только само название файла.

P.S. Может я неправильно поступил, но я дал скрипту расширение .vbs и сначала он мне выдавал ошибки, потом погуглил оказывается его надо сохранить в ANSI, а до этого он был в UTF-8, и не работал.

P.S.S. Я тут вручную поправлял все кодировки и точно убедился, что если в файлах присуствуют диакритические символы (а я любитель французкой музыки и таких файлов у меня очень много), то работает только с такой кодировкой в меню notepad++ она носит названее UTF-8 without BOM

[SendMessage]

Во первых он создает файлы .apl в кодировки ANSI (по крайне мере так показывает notepad++) и выдает ошибку если встречает файлы по типу 01. Transe Amazônico.mp3 »

Файл определится как utf-8 только при наличии символов >127. Ведь BOM в начале файла отсутствует, а символы 0-127 в utf-8 совпадают с ansi.
Кстати, я назвал у себя файл 01. Transe Amazônico.mp3 и все нормально (смотрите прикрепленный рисунок).

А во вторых ну это не ошибка конечно, но можно ли в "Image File=" вписывать не полный путь до файла, а только само название файла. »

Замените строку

Код:

"Image File=" & objOC.ToUtf8(fPath) & vbCrLf & _

на

Код:

"Image File=" & objOC.ToUtf8(objFSO.GetFileName(fPath)) & vbCrLf & _

[Jahnhoy]

SendMessage, у вас на скриншоте, имя самого апл файла без этой ô. Я когда запускаю скрипт он сначало выдаёт это и в папке появляется 01. Transe Amazônico.apl, но совершенно пустой, затем я жму ок и он обрабатывает все остальные файлы нормлально.

P.S. Win 7 Enterprise SP1 EN но system codepage русская. 1.vbs имеет кодировку ANSI.

[SendMessage]

Jahnhoy,

SendMessage, у вас на скриншоте, имя самого апл файла без этой ô. »

Внимательней смотрите - на вкладке написано имя файла. А в заголовке окна просто не поддерживается.

Я когда запускаю скрипт он сначало выдаёт это »

Понятно. В семерке или нет файла oleprn.dll, или в нем нет соответствующей функции кодирования в utf-8.

[Jahnhoy]

SendMessage, действительно извините пожалуйста. Но тут чертовщина какая твориться. Проверял щас как на Win7 en так и на WinXP SP3 rus, создал папочку и начинал переименовывать файлы со всякими разными символами и так, на символах ô и ê выдают ошибку, а вот é É à ошибку не выдают, но скрипт все равно делает с é É à не рабочие апл в кодировки ANSI :-( может выложите ваш скрипт которые правильно сработал, мож это как то не так скопировал, а то ничего не могу понять, почему такая избирательность не рабочих символов.

UPD: Прикрепил архив с тестовыми файлами (обычные txt переименованные в Mp3 c разными именами) + сам скрипт. Итог моего теста абсолютно одинаковый на Win7_Enterprise_SP1_ENG и на WinXP_Proffesional_SP3_RUS создаются без ошибок только 3 апл файла (1,2 и 7 трек), но и они с нерабочей кодировкой ANSI.

[kiripanda]

Я когда запускаю скрипт он сначало выдаёт это и в папке появляется 01. Transe Amazônico.apl, но совершенно пустой »

Подтверждаю на WinXP SP3 rus
oleprn.dll ver. 5.1.2600.5512 (xpsp.080413-0852)

[SendMessage]

Jahnhoy
Честно говоря, я в тупике. У меня никаких ошибок не выдает и создает все файлы нормально. Я прикрепил результат отработки по тестовой папке. Обрабатывалось присланным скриптом.
Все файлы notepad++ идентифицирует как "Encode in UTF-8 without BOM".

Ждите, когда прояснят ситуацию более компетентные люди.

[Jahnhoy]

SendMessage, действительно все сделало как надо, скажите пожалуйста какая у вас система (и системная локализация) и версия этого oleprn.dll. Может это баг этой dll в новых версиях.