Создание структуры каталогов с юникодовыми именами - VB

Формулировка задачи:

Привет ! Подскажите, пожалуйста, как будет правильно для юникод-версии функции?

Option Explicit
 
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type
 
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesW" (ByVal lpFileName As Long) As Long
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long
 
Private Sub Form_Load()
    Dim lr As Long
    Stop
    lr = CreateFolderStruct("h:\2\3\4\file", True)
End Sub
 
Function CreateFolderStruct(ByVal Path As String, Optional ByVal LastComponentIsFile As Boolean = False) As Long
    ' Создает структуру каталогов (относительные пути не поддерживаются)
    ' LastComponentIsFile - является ли последний компонент указанного пути файлом ?
    Dim FC As String, lr As Long, pos As Long, SA As SECURITY_ATTRIBUTES
    If LastComponentIsFile Then Path = Left(Path, InStrRev(Path, "\") - 1) ' урезаю имя файла
    Do
        pos = pos + 1
        pos = InStr(pos, Path, "\")
        If pos Then FC = Left(Path, pos - 1) Else FC = Path
        If Not IsFolder(FC) Then lr = CreateDirectory(FC, SA)
    Loop While pos
    CreateFolderStruct = lr
End Function
 
Public Function IsFolder(ByVal Path As String) As Boolean
    Dim L As Long
    Path = Trim(Path)
    L = GetFileAttributes(StrPtr(Path))
    IsFolder = CBool(L And vbDirectory) And (L <> -1)
End Function

Решение задачи: «Создание структуры каталогов с юникодовыми именами»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryW" (ByVal lpPathName As Long, lpSecurityAttributes As Any) As Long
Private Declare Function PathIsDirectory Lib "Shlwapi" Alias "PathIsDirectoryW" (ByVal pszPath As Long) As Long
Private Declare Function PathFindNextComponent Lib "Shlwapi" Alias "PathFindNextComponentW" (ByVal pszPath As Long) As Long
 
Private Sub Form_Load()
    Dim lr As Long
    Stop
    lr = CreateFolderStruct("D:\2\3\4\file", True)
End Sub
 
Function CreateFolderStruct(Path As String, Optional ByVal LastComponentIsFile As Boolean = False) As Long
    ' Г‘Г®Г§Г¤Г*ГҐГІ Г±ГІГ°ГіГЄГІГіГ°Гі ГЄГ*ГІГ*Г«Г®ГЈГ®Гў (Г®ГІГ*Г®Г±ГЁГІГҐГ«ГјГ*Г»ГҐ ГЇГіГІГЁ Г*ГҐ ГЇГ®Г¤Г¤ГҐГ°Г¦ГЁГўГ*ГѕГІГ±Гї)
    ' LastComponentIsFile - ГїГўГ«ГїГҐГІГ±Гї Г«ГЁ ГЇГ®Г±Г«ГҐГ¤Г*ГЁГ© ГЄГ®Г¬ГЇГ®Г*ГҐГ*ГІ ГіГЄГ*Г§Г*Г*Г*Г®ГЈГ® ГЇГіГІГЁ ГґГ*Г©Г«Г®Г¬ ?
    Dim lPs As Long, lPp As Long, l As Long, sz As Long, status As Boolean
    lPs = StrPtr(Path): lPp = lPs: sz = Len(Path): status = True
    Do
        lPp = PathFindNextComponent(lPp)
        l = (lPp - lPs) \ 2
        If lPp = 0 Or (LastComponentIsFile And l = sz) Then Exit Do
        If l < sz Then Mid(Path, l, 1) = vbNullChar
        If PathIsDirectory(lPs) = 0 Then
            If CreateDirectory(lPs, ByVal 0&) = 0 Then status = False
        End If
        If l < sz Then Mid(Path, l, 1) = "\"
    Loop While lPp And status
    CreateFolderStruct = status
End Function
                        