'createFolderinSubfolder.vbs
'Script zum Anlegen von jeweils 2 Ordnern "Eingang" und "Ausgang" in den Unterverzeichnissen / borwinius 2012'
On error Resume Next

DIM searchOrdner

'searchOrdner = "P:\Kunden"
searchOrdner = "."

Set FSO = CreateObject("Scripting.FileSystemObject")

ShowSubFolders FSO.GetFolder(searchOrdner)
'------------------------------'
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
       
      CreateDir Subfolder,"Eingang"
      CreateDir Subfolder,"Ausgang"
        
    Next
End Sub
'------------------------------'
'------------------------------'
Sub CreateDir(ParentFolder,Ordner)

IF NOT FSO.FolderExists(ParentFolder & "\" & Ordner) Then
      FSO.CreateFolder(ParentFolder & "\" & Ordner)
      wscript.echo "erstelle Ordner " & ParentFolder & "\" & Ordner
End IF

End Sub
'-------------------------------