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