Crear carpetas encadenadas

Public Function mcblnCreateFolders(ByVal strFullPathWhitDriver As String) As Boolean
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Fuente            : https://access-global.net/crear-carpetas-encadenadas/
'-----------------------------------------------------------------------------------------------------------------------------------------------
' Título            : mcblnCreateFolders
' Autor             : Rafael Andrada .:McPegasus:. | BeeSoftware | rafael.andrada@access-global.net
' Actualizado       : 25/10/2022, 10/10/2021.
' Propósito         : Crear varias carpetas que dependan de una o de una unidad de disco. No probado con unidad de red.
' Retorno           : Verdadero si se han creado todas las carpetas con éxito.
' Argumento/s       : La sintaxis del procedimiento o función consta de/los siguiente/s argumento/s:
'                     Parte                             Modo                Descripción
'-----------------------------------------------------------------------------------------------------------------------------------------------
'                     strFullPathWhitDriver       Obligatorio/Opcional    El valor String especifica la sucesión de carpetas a crear. Ejemplo: C:\Bee-Software\FolderA\FolderB\FolderC\
'-----------------------------------------------------------------------------------------------------------------------------------------------
'Test:              : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar todo el procedimiento desde el Sub hasta el End Sub
'                     al portapapeles y pega en el editor de VBA de tu aplicación MS Access. Descomentar todas las líneas que nos interese (se aconseja seleccionar
'                     todas las líneas del ejemplo y utilizar el botón 'Bloque sin comentarios' de la barra de herramientas 'Edición').
'                     Pulsar F5 para ver su funcionamiento.
'-----------------------------------------------------------------------------------------------------------------------------------------------
'Test:              : Para adaptar este código en tu aplicación puedes basarte en este procedimiento test. Copiar el bloque siguiente al
'                     portapapeles y pega en el editor de VBA. Descomentar la línea que nos interese y pulsar F5 para ver su funcionamiento.
'
'Sub mcblnCreateFolders_test()
'       Debug.Print mcblnCreateFolders("C:\Bee-Software\FolderA\FolderB\FolderC\")
'
'End Sub
'-----------------------------------------------------------------------------------------------------------------------------------------------

    Dim bytCount                                    As Byte
    
    Dim strDrive                                    As String
    Dim strPath                                     As String
    Dim strPathWork()                               As String


    strPath = strFullPathWhitDriver
    strDrive = Left(strPath, 2)
    strPathWork = Split(strPath, "\")
    
    strPath = strDrive
    bytCount = 1
    Do While Not bytCount = UBound(strPathWork) + 1
        strPath = strPath & "\" & strPathWork(bytCount)
        If Dir(strPath, vbDirectory) = "" Then
            MkDir strPath
            
        End If
        bytCount = bytCount + 1
    
    Loop

End Function