Ошибка при определении даты файла

[Tin]

Такая проблема - определяю размер файла с помощью FileDateTime и наткнулся на такую проблему - если файл называется на казахском языке, то бэйсик выдает ошибку о том, что не может найти такой файл... Если дату определеть через апи GetFileTime, то дата определеяется не правельно (1610 год выпуска получается). Может кто знает, как решить такую проблему...

[Tin]

Решил для наглядности выложить такой файлик - замаялся уже и ОЧЕНЬ надо

[Twister]

Ну решение всегда есть - переименовать файл. Только оно не всегда подходит.
Ну а если серьезно, то:
Не стал ничего писать - открыл свойства файла, посмотрел - дата в порядке. Значит что-то ты с GetFileTime намудрил.
В проводнике у меня имя отображается корректно, а вот открыв его вордом я увидел каракули вместо казахских букв в заголовке. Поэтому и басик ругается.

[Tin]

Ну тогда попробуй програмно скопировать или переименовать этот файл... А руками переименовывать все файлы я не могу.
А дата не отображается, потому что АПИ не может найти файл с таким именем и проблема заключается в том - какое имя надо передать фунции, чтобы он его поняла

[Twister]

Попробуй открывать файл с помощью API-W, а не API-A (CreateFileW). Потом передавай хэндл в GetFileTime... Мож получиться.

[Tin]

и как объявить Api-W(CreateFileW).... Что-то я не понял... Если можно, то чуточку подробнее

[Kovu]

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

Private Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileW" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

CreateFile StrConv(Filename,vbUnicode), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0



[Tin]

Вот что я пытаюсь сделать - не работает, хоть даже и буковку В поставил

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

lngHandle = CreateFile(StrConv(CDBox.FileName, vbUnicode), GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
    MsgBox "The size of the selected file is" + Str$(GetFileSize(lngHandle, lngLong)) + " bytes."

[Kovu]

Tin
Только что проверил с русским именем файла всё ок
Попробуй в ВБ поставить какой нибудь казахский шрифт, чтобы спецсимволы не заменялись знаками вопроса

[Tin]

С русским проблем нет...

Поставил казахский - не пашет - один черт вопросиками