[SendMessage]

скажите пожалуйста какая у вас система (и системная локализация) и версия этого oleprn.dll. »

win xp pro sp2 rus
oleprn.dll v.5.1.2600.2180

[Jahnhoy]

Решил проблему. На сколько я понял проблема на моих системах вызывали эти куски

Код:

Set objOC = CreateObject("OlePrn.OleCvt.1")
objOC.ToUtf8

т.е. предложенный SendMessage'ом путь создавать текстовый файл в ansi и в него впихивать unicode символы почему у меня не сработал, я погугули и нашел решение котрое действует наооборот т.е. создает изначально UTF-8 а потом удаляет из него это чертов BOM, кстати нашел на этом же форуме, а тут есть решение с отдельной функцией, но уже не стал заморачиваться. Так, что вот версия которая у меня работает не отлично.

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

Код:

' Запуск:
' 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 aplFileUTF8
  Dim aplFileWithoutBOM
  Dim aplFileName
    aplFileName = objFSO.GetParentFolderName(fPath) & "\" & objFSO.GetBaseName(fPath) & ".apl"
    If Not objFSO.FileExists(aplFileName) Then 
		Set aplFileUTF8 = CreateObject("ADODB.Stream")
			aplFileUTF8.Type=2
			aplFileUTF8.Charset = "UTF-8"
			aplFileUTF8.Open
			aplFileUTF8.WriteText "[Monkey's Audio Image Link File]" & vbCrLf & _
									"Image File=" & objFSO.GetFileName(fPath) & vbCrLf & _
									"Start Block=0" & vbCrLf & vbCrLf & _
									"----- APE TAG (DO NOT TOUCH!!!) -----"
			aplFileUTF8.Position=3
		Set aplFileWithoutBOM = CreateObject("ADODB.Stream")
			aplFileWithoutBOM.Type=1
			aplFileWithoutBOM.Open
		aplFileUTF8.CopyTo aplFileWithoutBOM
		aplFileWithoutBOM.SaveToFile(aplFileName)
    End If
End Sub

SendMessage еще раз вам говорю спасибо за помощь.