Поиск файлов с юникодными именами

Option Explicit
 
Private Const MAX_PATH As Long = 260&
 
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    lpszFileName(MAX_PATH) As Integer
    lpszAlternate(14) As Integer
End Type
 
' поиск всех файлов рекурсивно (без симлинков и точек повторной обработки)
Sub ScanFolder(Path As String)
    Dim SubPathName     As String
    Dim PathName        As String
    Dim hFind           As Long
    Dim L               As Long
    Dim lRet            As Long
    Dim lpStr           As Long
    Dim fd              As WIN32_FIND_DATA
    
    Do
        If hFind <> 0 Then
            If FindNextFile(hFind, fd) = 0 Then FindClose hFind: hFind = 0: Exit Sub
        Else
            hFind = FindFirstFile(StrPtr(Path & "\*"), fd)
            If hFind = INVALID_HANDLE_VALUE Then Exit Sub
        End If
        
        L = fd.dwFileAttributes And &H600 ' мимо симлинков
        Do While L
            If FindNextFile(hFind, fd) = 0 Then FindClose hFind: hFind = 0: Exit Sub
            L = fd.dwFileAttributes And &H600
        Loop
    
        If hFind <> 0 Then
            lpStr = VarPtr(fd.dwReserved1) + 4
            L = lstrlen(lpStr)
            PathName = String$(L, vbNullChar)
            lRet = StrPtr(PathName)
            lstrcpy lRet, lpStr
            SubPathName = Path & "\" & PathName
        
            If fd.dwFileAttributes And vbDirectory Then
                If PathName <> "." Then
                    If PathName <> ".." Then
                        DoEvents
                        ScanFolder SubPathName
                    End If
                End If
            Else
                Debug.? ASCW(mid(PathName,1,1))
            End If
        End If
        
    Loop While hFind
    
End Sub