opret mapper og x antal undermapper

Prøv dette:



set oShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
dox = oShell.SpecialFolders("MyDocuments")

Path = InputBox("Som standard bliver din nye mappe oprettet med stien . . . . """ & dox & """" & VbCrlf & VbCrlf &  "Hvis du

foretrækker en anden sti kan du angive den her nedenfor . . . " & VbCrlf & VbCrlf &  "Vær opmærksom på at makroen ikke kan oprette

en sti, som ikke i forvejen eksisterer. Da vil makroen stoppe og gylpe et fejl besked op." & VbCrlf & VbCrlf, "Hvor skal mappen

oprettes?",dox)

If(Path="") Then
WScript.Quit
End If

If(Not(Right(Path,1))="\") Then
Path = Path & "\"
End If

Navn =  InputBox("Angiv her nedenfor navnet din nye mappe skal have . . .  ")

If(Navn ="") Then
WScript.Quit
End If

AntalUM =  InputBox("Angiv her nedenfor det antal undermapper du ønsker . . .  " & VbCrlf & VbCrlf &  "( Antallet skal angives med

cifre og ikke tekst!! )")

fso.CreateFolder(Path & Navn)

If(Not(AntalUM)="") Then
For J = 1 to Cint(AntalUM)
fso.CreateFolder(Path & Navn & "\cd" & J)
Next
End If

Uh Åh !! det ser ud til at det er galt med Word  wrap. Lad os prøve igen....




Set oShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
dox = oShell.SpecialFolders("MyDocuments")

Path = InputBox("Som standard bliver din nye mappe oprettet med stien . . . . """ & dox & """" & VbCrlf & VbCrlf &  "Hvis du foretrækker en anden sti kan du angive den her nedenfor . . . " & VbCrlf & VbCrlf &  "Vær opmærksom på at makroen ikke kan oprette en sti, som ikke i forvejen eksisterer. Da vil makroen stoppe og gylpe et fejl besked op." & VbCrlf & VbCrlf, "Hvor skal mappen oprettes?",dox)

If(Path="") Then
WScript.Quit
End If

If(Not(Right(Path,1))="\") Then
Path = Path & "\"
End If

Navn =  InputBox("Angiv her nedenfor navnet din nye mappe skal have . . .  ")

If(Navn ="") Then
WScript.Quit
End If

AntalUM =  InputBox("Angiv her nedenfor det antal undermapper du ønsker . . .  " & VbCrlf & VbCrlf &  "( Antallet skal angives med cifre og ikke tekst!! )")

fso.CreateFolder(Path & Navn)

If(Not(AntalUM)="") Then
For J = 1 to Cint(AntalUM)
fso.CreateFolder(Path & Navn & "\cd" & J)
Next
End If

Mange mange tak

Smid et svar :)

lige det jeg søgte :)

Glædeligt!