Vous pouvez accéder à l'espace de travail courant en utilisant la propriété globale ActiveWorkspace, ouvrir, enregistrer et fermer des espaces de travail, et y ajouter des dossiers et documents.
Le script suivant construit une structure de dossiers simple dans un espace de travail et ajoute et crée plusieurs modèles dans cet espace de travail :
Option Explicit ' Fermeture de l'espace de travail existant et enregistrement dans Temp Dim workspace, curentFolder Set workspace = ActiveWorkspace workspace.Load "%_EXEMPLES%\monwsp.sws" Output "Enregistrement de l'espace de travail existant dans le répertoire Exemple : "+EvaluateNamedPath("%_EXEMPLES%\temp.sws")" workspace.Save "%_EXEMPLES%\Temp.SWS" workspace.Close workspace.Name = "VBS WSP" workspace.FileName = "VBSWSP.SWS" workspace.Load "%_EXEMPLES%\Temp.SWS" dim Item, subitem for each Item in workspace.children If item.IsKindOf(PdWsp.cls_WorkspaceFolder) Then ShowFolder (item) renameFolder item,"FolderToRename", "RenamedFolder" deleteFolder item,"FolderToDelete" curentFolder = item ElsIf item.IsKindOf(PdWsp.cls_WorkspaceModel) Then ElsIf item.IsKindOf(PdWsp.cls_WorkspaceFile) Then End if next Dim subfolder 'insertion du dossier à la racine Set subfolder = workspace.Children.CreateNew(PdWsp.cls_WorkspaceFolder) subfolder.name = "Nouvdossier(VBS)" 'insertion du dossier à la racine en pos 6 Set subfolder = workspace.Children.CreateNewAt(5, PdWsp.cls_WorkspaceFolder) subfolder.name = "Nouvdossier(VBS)insertedAtPos5"' ' ajout d'un dossier dans ce dossier Set subfolder = subfolder.Children.CreateNew(PdWsp.cls_WorkspaceFolder) subfolder.name = "NouvSousDossier(VBS)" subfolder.AddDocument EvaluateNamedPath("%_EXEMPLES%\rapmpd.rtf") subfolder.AddDocument EvaluateNamedPath("%_EXEMPLES%\rapmcd.rtf") subfolder.AddDocument EvaluateNamedPath("%_EXEMPLES%\gestsoc.mpd") subfolder.AddDocument EvaluateNamedPath("%_EXEMPLES%\demo.moo") dim lastmodel set lastmodel = subfolder.AddDocument (EvaluateNamedPath("%_EXEMPLES%\Ordinateurs.mlb")) lastmodel.open lastmodel.name = "Ordinateurs" lastmodel.close 'détachement du modèle de l'espace de travail lastmodel.delete workspace.Save "%_EXEMPLES%\Final.SWS"
Pour plus d'informations sur les propriétés et méthodes disponibles sur l'espace de travail, sélectionnez , puis naviguez vers Libraries/PdWSP/Workspace.