erstelle in den Unterverzeichnissen eines Verzeichnisses jeweils die 2 Verzeichnisse „Eingang“ und „Ausgang“.

createFolderinSubfolder.vbs

'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
'-------------------------------