Excel VBA folder maken op basis celwaarde.

[henkvanerp]

Ik wil op basis van celwaarde dat een folder wordt gemaakt.
Wil graag dat "C:\J-Toetsing\2022-2023\Box 1") wordt vervangen door het pad wat in een cel staat.
Bijv. In Blad1 in cel A1 staat C:\J-Toetsing\2022-2023\Box 1"

Nu heb ik het zo gemaakt wat ook werkt maar wel omslachtig.

Dim fsoFSO17
Set fsoFSO17 = CreateObject("Scripting.FileSystemObject")
If fsoFSO17.FolderExists ("C:\J-Toetsing\2022-2023\Box 1") Then
    'MsgBox "C:\J-Toetsing\2022-2023\Box 1"
Else
    fsoFSO17.CreateFolder ("C:\J-Toetsing\2022-2023\Box 1")
    'MsgBox "C:\J-Toetsing\2022-2023\Box 1"
End If

 

[edmoor]

Doe het eens zo, met dit in A1: C:\J-Toetsing\2022-2023\Box 1

Dsk = Left(Range("A1"), 3)
Pad = Split(Mid(Range("A1"), 4), "\")
[COLOR="#008000"]'On Error Resume Next[/COLOR]
For i = 0 To UBound(Pad)
    Folder = Folder & "\" & Pad(i)
    If Dir(Dsk & Folder, vbDirectory) = "" Then MkDir Dsk & Folder
Next i

 

[henkvanerp]

Ed, Het werkt. Dank. Nog een vraag. Cel A1 Blad1 waar de mapomschrijving in staat, staat dus in Blad1.
Nu heb ik ook mapomschrijvingen in andere bladen staan. Hoe geef ik aan dat cel A1 in Blad1 staat of Cel A1 in Blad 2 in jouw script?

 

[edmoor]

Dat kan zo:

With Sheets("Blad1")
    Dsk = Left(.Range("A1"), 3)
    Pad = Split(Mid(.Range("A1"), 4), "\")
End With
[COLOR="#008000"]'On Error Resume Next[/COLOR]
For i = 0 To UBound(Pad)
    Folder = Folder & "\" & Pad(i)
    If Dir(Dsk & Folder, vbDirectory) = "" Then MkDir Dsk & Folder
Next i

 

[OctaFish]

BVen toch wel héél benieuwd wat deze vraag te maken heeft met het maken van websites. Ik zie het niet, lijkt mij toch gewoon een Excel vraag .