Oprette flere mapper. Nærmere hele stien

Set oWSH = CreateObject("WScript.Shell")
oWSH.Run ("cmd /c Md C:\dd\mm\dd")

denne virker på windows xp

Set oWSH = CreateObject("WScript.Shell")
oWSH.Run ("cmd /c Md " & combo1)

kabbak tak for indslaget. Jeg fandt et tidligere eks som jeg har tilpasset. Jeg har fået dette til at virke og indsætter det her i spm, så andre kan få glæde af det.

Lukker spm

Dim dNr As Integer, cNr As Integer
Dim dPath, sti As String
Dim fso

dPath = "C:\xxxx\zzzz\ssss\dddd\"
  cNr = 1
  ' If last Char isn't \ then append it
  If Right(dPath, 1) <> "\" Then
      dPath = dPath & "\"
  End If
   
  Do
  dNr = InStr(cNr, dPath, "\", vbTextCompare)
  If dNr >= cNr Then
    sti = Left(dPath, dNr)
      cNr = dNr + 1
             
      Set fso = CreateObject("Scripting.FileSystemObject")
      If (fso.FolderExists(sti)) Then
                       
      Else
        Set fso = CreateObject("scripting.filesystemobject")
        fso.createfolder sti
        Set fso = Nothing
      End If
               
    cNr = dNr + 1
           
    If cNr >= Len(dPath) Then
        Exit Do
    End If

      End If
Loop