Re: create folder structure via script

Hi Rafal,

You can try this :

Option Explicit

' Close existing workspace and save it to Temp

Dim workspace, curentFolder

Set workspace = ActiveWorkspace

workspace.Name = "VBS WSP"

workspace.FileName = "VBSWSP.SWS"

workspace.Load "%_EXAMPLES%\Temp.SWS"

dim Item, subitem

Dim subfolder

'insert folder in root

Set subfolder = workspace.Children.CreateNew(PdWsp.cls_WorkspaceFolder)

subfolder.name = "Newfolder(VBS)"

'insert folder in root at pos 1

Set subfolder = workspace.Children.CreateNewAt(1, PdWsp.cls_WorkspaceFolder)

subfolder.name = "Newfolder(VBS)insertedAtPos1"'

'insert folder in root at pos 2

Set subfolder = workspace.Children.CreateNewAt(2, PdWsp.cls_WorkspaceFolder)

subfolder.name = "Newfolder(VBS)insertedAtPos2"'

' add a new folder in this folder

Set subfolder = subfolder.Children.CreateNew(PdWsp.cls_WorkspaceFolder)

subfolder.name = "NewSubFolder(VBS)"

subfolder.AddDocument EvaluateNamedPath("%_EXAMPLES%\pdmrep.rtf")

subfolder.AddDocument EvaluateNamedPath("%_EXAMPLES%\cdmrep.rtf")

subfolder.AddDocument EvaluateNamedPath("%_EXAMPLES%\project.pdm")

subfolder.AddDocument EvaluateNamedPath("%_EXAMPLES%\demo.oom")

workspace.Save "%_EXAMPLES%\Final.SWS"

Your evaluation of my answer would be appreciated - Examples choices are Correct, Helpful answer.