submappen maken in meerdere directory's

[Verwijderd]

hallo,

ik heb hier een projectschijf met daarin ong 1200 mappen. in al deze mappen moet 1 submap erbij komen genaamd facturen. handmatig is dit zeer vervelend werk, ik heb gezocht maar ik kon niets op google en dit forum vinden. bestaat er een geautomatizeerde oplossing voor dit probleem? die 1200mappen in 1 keer erin spuugt

[ Voor 6% gewijzigd door Verwijderd op 08-02-2006 10:37 ]

[Dunka]

code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objFSO = CreateObject("Scripting.FileSystemObject")

strFolderName = "C:\"
strCopyPath = "\facturen"

Set colSubfolders = objWMIService.ExecQuery _
    ("Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
        & "Where AssocClass = Win32_Subdirectory " _
            & "ResultRole = PartComponent")

For Each objFolder in colSubfolders
    Set objFolder = objFSO.CreateFolder(objFolder.name & strCopyPath)
Next

Opslaan als bestand.vbs en strFolderName waarde aanpassen naar projectschijf.

[Verwijderd]

maakmap.bat maken:

code:

rem DOS bestandje voor iets wat je eigenlijk gewoon aan stagiaires moet overlaten
rem
rem
@echo off
mkdir ".\%1\facturen"
rem
rem
rem Einde filetje dat je best kan vervangen door een stagiair

en dan maak je even een lijstje van die 1200 mappen in een .txt bestandje

code:

dir /b /a:d >dirlijst.txt

Je output ziet er dan zo uit:

code:

dumpevt
Exchange Server
hierruudgoedkijken
intranet
Logs
Nokia 9500
Opslag en Tools
reut
scripts
Taken en Gegevens

en vervolgens pas je dirlijst.txt aan door bij elke regel er "call maakmap.bat " voor te zetten.
Dan heb je dit:

code:

call maakmap.bat dumpevt
call maakmap.bat Exchange Server
call maakmap.bat hierruudgoedkijken
call maakmap.bat intranet
call maakmap.bat Logs
call maakmap.bat Nokia 9500
call maakmap.bat Opslag en Tools
call maakmap.bat reut
call maakmap.bat scripts
call maakmap.bat Taken en Gegevens

dirlijst.txt opslaan en dan

code:

ren dirlijst.txt dirlijst.bat

en dan kopieer je beide .bat files naar de map waar al die 1200 mappies in staan, en doe je dirlijst.bat uitvoeren.

Kind kan de was doen: basiskennis Windows- en DOS. Als je Linux gebruikt werkt het net zo maar zijn de commando's anders.

[Verwijderd]

danku dunka, werkt perfect.

[Gerco]

Of je doet dit:

code:

C:\> FOR /D %1 IN (D:\hier\je\rootmap\*) DO @mkdir "%1\Facturen"

Geen batchfiles of omwegen voor nodig. Tik eens "HELP FOR" in op de commandline en ontdek een wereld aan mogelijkheden. FOR is zonder twijfel het krachtigste commando op de Windows commandline, al mag het nog niet in de schaduw van dingen als "find" en "grep" staan.

@Knettergek:
In linux werkt het niet op de manier die je beschrijft (nou ja, het kan wel, maar is oneindig veel onslachtiger dan nodig). In Linux doe je (ook) gewoon zo:

code:

gerco@server ~ $ find -type d -maxdepth 1 -exec mkdir "{}/Facturen" \;

[ Voor 52% gewijzigd door Gerco op 08-02-2006 12:25 ]

[Verwijderd]

Gerco schreef op woensdag 08 februari 2006 @ 12:18:
Of je doet dit:

code:

C:\> FOR /D %1 IN (D:\hier\je\rootmap\*) DO @mkdir "%1\Facturen"

Geen batchfiles of omwegen voor nodig. Tik eens "HELP FOR" in op de commandline en ontdek een wereld aan mogelijkheden. FOR is zonder twijfel het krachtigste commando op de Windows commandline, al mag het nog niet in de schaduw van dingen als "find" en "grep" staan.

@Knettergek:
In linux werkt het niet op de manier die je beschrijft (nou ja, het kan wel, maar is oneindig veel onslachtiger dan nodig). In Linux doe je (ook) gewoon zo:

code:

gerco@server ~ $ find -type d -maxdepth 1 -exec mkdir "{}/Facturen" \;

oh, ik maakte wel een shellscriptje Maar zoals je ziet ben ik niet zo thuis in FOR en al helemaal niet in Linux