VB Script to create folders

[markesmith]

Hi
The following works fine - we run it through GPO at logon:

ParentFolder = "H:\"
set objShell = CreateObject("Shell.Application")
set objFolder = objShell.NameSpace(ParentFolder)
objFolder.NewFolder "Year 1"

to create folder 'Year 1' in the root of the users home area. What we would like to do is create a Year 1, Year 2, Year 3 etc folder in every home area so there is better file management as users move up the school. Other than using 6 scripts any ideas how to extend this script so it can add more than one folder?
Many thanks

[saundersmatt]

Just repeat the last line and substitute "Year 1" for whatever folder name.

matt

[NetworkGeezer]

Or use a For loop.

For N = 1 to 7
objFolder.NewFolder "Year "+CStr(N)
Next