Sprawdzanie i tworzenie kilkuczłonowej ścieżki MkDir

Na pewno może zdarzyć się potrzeba sprawdzenia czy dana ścieżka jest na komputerze, jeżeli nie to jej utworzenie. To jedno z rozwiązań.
Załóżmy, że nasza ścieżka to  C:\Folder1\Folder2\Folder3
Ponieważ MkDir tworzy tylko ostatni element ścieżki musimy sobie rozłożyć naszą ścieżkę na poszczególne części i sprawdzać, a następnie ewentualnie dodawać nieistniejący katalog.
Oczywiście możemy w ten sposób sprawdzać i tworzyć dłuższe czy krótsze ścieżki wg uznania

Sub utw_foldery()

sciezka1 = "C:\Folder1"
If Len(Dir(sciezka1, vbDirectory)) = 0 Then MkDir sciezka1
sciezka2 = "C:\Folder1\Folder2"
If Len(Dir(sciezka2, vbDirectory)) = 0 Then MkDir sciezka2
sciezka3 = "C:\Folder1\Folder2\Folder3"
If Len(Dir(sciezka3, vbDirectory)) = 0 Then MkDir sciezka3

End Sub