Проблемка с файлами на китайском языке

[Inferno]

Доброе время суток.
Суть проблемы: Имеются папки и файлы на китайском языке. После выбора файла через соммоdialog и потом проверки через FileExist- матюгается, что такого файла нет. Если вывести полученный путь к файлу, то китайские символы заменяет знаками вопросов.
Пробовал выбирать файлы и через API- тажа ерунда.
Пример:
c:/folder/"Папка на китайском"/1/
будет выведен как с:/folder/Я идиот! Убейте меня, кто-нибудь!????/1/
Может кто-то подскажет как боротся с такой проблемкой.

[hCORe]

Все ANSI-версии API-функций замени на Unicode

Например, была функция:

Код: Выделить всё

Private Declare Function BlaBlaBla Lib "rtfm32.dll" _
Alias "BlaBlaBlaA" (ByVal dwNumber As Long, _
ByVal lpstrData As String) As Long

И вызывал ты ее так:

Код: Выделить всё

...
Dim lRes As Long
Dim sMyString As String, lNum As Long
sMyString = "RTFM!"
lNum = &H0&
lRes = BlaBlaBla(lNum, sMyString)
...

А стала:

Код: Выделить всё

Private Declare Function BlaBlaBla Lib "rtfm32.dll" _
Alias "BlaBlaBlaW" (ByVal dwNumber As Long, _
ByVal lpstrData As Long) As Long

И вызывается так:

Код: Выделить всё

...
Dim lRes As Long
Dim sMyString As String, lNum As Long
sMyString = "RTFM!"
lNum = &H0&
lRes = BlaBlaBla(lNum, VarPtr(sMyString))
...

[Inferno]

Насколько я понял из вышенаписанного разница между названиями анси функций и юникодовых в последней букве алиаса,
тоесть если стоит

Код: Выделить всё

Alias "BlaBlaBlaA"

-то это анси функция
а если

Код: Выделить всё

Alias "BlaBlaBlaW"

- ТО это юникодовая.
Я понял правильно?

[alibek]

Да.
Плюс следует учитывать, что при вызове API VB в любом случае производит конвертацию. Поэтому надо передавать указатель, VarPtr/StrPtr.