Sub VerzeichnisAnlegen(Ordner)
  Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
 
  If Not FSO.FolderExists(Ordner) Then
    FSO.CreateFolder(Ordner)
  End If 
End Sub
 
Option Explicit
Dim ParentFolder
ParentFolder = "C:\Documents and Settings\" & CreateObject( _
  "WScript.Shell").ExpandEnvironmentStrings("%username%") & "\Local" & _
  "Settings\Application Data"
 
VerzeichnisAnlegen(ParentFolder & "\a")
VerzeichnisAnlegen(ParentFolder & "\b")
VerzeichnisAnlegen(ParentFolder & "\c")