Contrôle de l'espace de travail (Scripting)

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 Aide > Aide sur les objets du métamodèle, puis naviguez vers Libraries/PdWSP/Workspace.