FindFirstFile не корректно определяет имена файлов с диакритическими знаками

    Dim bstFileName As String
    Dim lngFileCount As Long
    Dim lngAPIReturn As Long
    Dim bstPath As String
    Dim bstCinteria As String
    Dim abstFileNames() As String
    Dim lngHSearch As Long
    Dim udtWFD As WIN32_FIND_DATA
   
    bstCinteria = iCinteria
    bstPath = iPath
    
    lngHSearch = INVALID_HANDLE_VALUE
    lngHSearch = FindFirstFile(bstPath & iCinteria, udtWFD)
    lngFileCount = -1&
       
    If lngHSearch <> INVALID_HANDLE_VALUE Then
        Do
            bstFileName = Left(udtWFD.cFileName, VBA.InStr(1, udtWFD.cFileName, Chr(0)) - 1) ', vbNullString)
            Stop
            If (bstFileName <> ".") And (bstFileName <> "..") Then
                lngFileCount = lngFileCount + 1
                ReDim Preserve abstFileNames(0& To lngFileCount) As String
                abstFileNames(lngFileCount) = bstFileName
            End If
            lngAPIReturn = FindNextFile(lngHSearch, udtWFD)
        Loop Until lngAPIReturn = 0&
        FindClose lngHSearch
    End If
 
    oFileNames = abstFileNames
    oMaxIdx = lngFileCount

    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME

Dim st As SYSTEMTIME
Dim dt As Date
' convert a FILETIME to SYSTEMTIME first
FileTimeToSystemTime WFD.ftCreationTime, st

' Список файлов или подкаталогов в каталоге с помощью API (с поддержкой уникода)
Public Function ListFilesOrDirsAPI(Directory As String, StrArray() As String, Optional ListFiles As Boolean) As Long
            '..............................
End Function

Type FileNameAndDateTime
    dirName As String
    dirDateTime As SYSTEMTIME
End Type

' Список файлов или подкаталогов в каталоге с помощью API (с поддержкой уникода)
Public Function ListFilesOrDirsAPI(Directory As String, StrArray() As FileNameAndDateTime, Optional ListFiles As Boolean) As Long
            '..............................
End Function

' Список файлов или подкаталогов в каталоге с помощью API (с поддержкой уникода)
Public Function ListFilesOrDirsAPI(Directory As String, StrArray() As As FileNameAndDateTime, Optional ListFiles As Boolean) As Long
    Dim DirName As String
    Dim hSearch As Long
    Dim WFD As WIN32_FIND_DATA_UNICODE
    Dim Cont As Long
    Dim cnt As Long
    Dim lpStr As Long
    
    If Right(Directory, 1) <> "" Then Directory = Directory & ""
    
    Cont = True
    hSearch = FindFirstFileW(StrPtr(Directory & "*"), WFD)
    
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
            lpStr = VarPtr(WFD.dwReserved1) + 4
            PutMem4 VarPtr(DirName), SysAllocStringLen(0, lstrlen(lpStr)) ' Мгновенно выделить память для строки
            lstrcpy StrPtr(DirName), lpStr ' Копирование строк
            
            If DirName <> "." And DirName <> ".." Then
                If ListFiles = False Then
                    If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) <> 0 Then ' Если это каталог
                        ReDim Preserve StrArray(cnt)
                        StrArray(cnt).dirName = DirName             ' здесь поправил.
                        'здесь я хочу, получить ДАТУ и ВРЕМЯ файла! И присвоить переменной: StrArray(cnt).dirDateTime
                        FileTimeToSystemTime WFD.ftCreationTime, StrArray(cnt).dirDateTime
                        'как-то так, но у меня почему-то ничего не получается. Ошибка не совпадение типов. Хотя по сути, всё идеально подходит.
                        
 
 
                        cnt = cnt + 1
                    End If
                Else
                    If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = 0 Then ' Если это не каталог
                        ReDim Preserve StrArray(cnt)
                        StrArray(cnt).dirName = DirName             'здесь поправил.
 
                        'и здесь я хочу, получить ДАТУ и ВРЕМЯ файла! И присвоить переменной: StrArray(cnt).dirDateTime
                        FileTimeToSystemTime WFD.ftCreationTime, StrArray(cnt).dirDateTime
                        'как-то так, но у меня почему-то ничего не получается. Ошибка не совпадение типов. Хотя по сути, всё идеально подходит.
 
                        cnt = cnt + 1
                    End If
                End If
            End If
            
            Cont = FindNextFileW(hSearch, WFD)
        Loop
        
        Cont = FindClose(hSearch)
    End If
    
    If cnt > 0 Then ListFilesOrDirsAPI = cnt
End Function

' Преобразовать FileTime в удобочитаемый вид
Public Function FileTimeToString(FILETIME As Currency) As String
    Dim LocalProcessTime As Currency
    Dim ST As SYSTEMTIME
    Dim fDate As String
    Dim fTime As String
    
    If FILETIME > 0 Then
        FileTimeToLocalFileTime FILETIME, LocalProcessTime
        FileTimeToSystemTime LocalProcessTime, ST
        
        fDate = CDate(ST.wDay & "." & ST.wMonth & "." & ST.wYear)
        fTime = IIf(Len(CStr(ST.wHour)) > 1, ST.wHour, "0" & ST.wHour) & ":" & IIf(Len(CStr(ST.wMinute)) > 1, ST.wMinute, "0" & ST.wMinute) & ":" & IIf(Len(CStr(ST.wSecond)) > 1, ST.wSecond, "0" & ST.wSecond)
        
        FileTimeToString = fDate & " в " & fTime
    End If
End Function

            lpStr = VarPtr(WFD.dwReserved1) + 4
                  PutMem4 VarPtr(dirName), SysAllocStringLen(0, lstrlen(lpStr))
                  lstrcpy StrPtr(dirName), lpStr

            lpSTR = VarPtr(WFD.dwReserved1) + 4
            PutMem4 VarPtr(dirName), SysAllocStringLen(0, lstrlen(lpSTR))
            lstrcpy StrPtr(dirName), lpSTR
            
            Debug.Print Asc(Mid(dirName, 1, 1)) & " " & Asc(Mid(dirName, 2, 1)) & " " & Asc(Mid(dirName, 3, 1)) & " " & Asc(Mid(dirName, 4, 1))