OLE с Word и файлы с русскими именами

[Zaharius]

На форме контейнер для Word с именем OLE
Имеется два файла с русским и английскими именами При загрузке "англоязычного" всё нормально; при загрузке "русского" - выбивает ошибку "Unable to access source document" (Если я правильно понимаю ненашенский: "Нет доступа к документу с данными")

Конкретней:

FilePath1="C:/test.doc"
FilePath2="C:/тест.doc"

'При:
OLE.CreateEmbed strPath1 ' Всё ОК
'При
OLE.CreateEmbed strPath2 ' Беда

Как быть? Ведь русскоговорящие юзеры, юзая Word, обычно сохраняют файлы с русскими именами?

[Alprog]

Как быть?

Можно переименовать файл, обработать, по завершению работы проги, переименовать обратно

[Zaharius]

Я думал о таком варианте, но есть одна проблема - нельзя переименовать весть путь к файлу. Если в иерархии встречается хотя бы одна дирректория с русским именем (напр. "Мои документы") - этот вариант не подойдёт.
Можно было бы перед обработкой исходный документ копировать с англоязычным именем в корневой каталог (Напр. "C:/.../Мои документы/тест.doc" d "C:/test.doc", но как-то всё в совокупности топорно получается. Может всё-таки есть другое решение?
P.S. И почему майкрософтовцы, лояльно относящиеся к чужим языкам, в этом случае так оплевали Великий и Могучий?

[iGrok]

Дурацкий вариант, "пальцем в небо". А что если ему строку в unicode, а не в ansi отдавать?

[alibek]

FilePath1="C:/test.doc"
FilePath2="C:/тест.doc"

А почему использован прямой слэш?

[Vi]

Мой ФАР говорит, что такой, русский, файл имеет короткое имя CA0C~1.DOC, которое можно загрузить в Ворд.

PS
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
Dim s As String
s = String(256, " ")
GetShortPathName "C:\TMP\ТЕСТ.DOC", s, 256
OLE1.CreateEmbed s
End Sub

[Alec]

Мой ФАР говорит, что такой, русский, файл имеет короткое имя CA0C~1.DOC

Не факт. Такие имена (в виде символьной записи шестнадцатиричных чисел, кстати), будут только на NTFS, и то если не настроено allowextchar (я, кстати, именно так и настраиваю - приходится часто работоать с ДОС прорграммами и нужно хотя-бы часть имени файла видеть) (в XP Prof как минимум). В FAT имена даже на кириллице будут просто обрезаться, но оставаться на кириллице.

[tyomitch]

В FAT имена даже на кириллице будут просто обрезаться, но оставаться на кириллице.

Даже если системная кодовая страница не 1251?