---

Hallo zusammen
Ich moechte dass nach einem Kundenproject Ordner mit Unterordner
automatisch auf der Dokumentenebene angelegt wird.
Das Script fuer einen "einfachen Ordner" anlegen liegt mir vor
und funktioniert auch soweit.
Ich weiss leider nicht wie der Syntax im Script auszusehen hat damit
auch ein Unterordner erstellt wird.
Kann mir mal einer ein Beispiel posten ?
Beispiel
Dokumentebene
|
-Ordner 1
------|
------|-Ordner2   

            danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
wenn Du beide Ordner erstellt hast, dann müssen diese einfach nur noch mit einer der folgenden Methoden (aus dem ISmObject-Interface) hierarchisch verknüpft werden:

LinkToParent
LinkToParentEx
LinkToChild
LinkToChildEx

Mehr dazu (inkl. kleiner Beispiele) liefert die STComRefGuide.chm.

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok danke fuer die Antwort
Werde die Doku die du empfiehlst auf jeden Fall schmoekern.
Mein Problem ist das Script
Wie heisst der Syntax fuer Demo1/Unterordner1
Dieses wuerde nur je 1 Ordner anlegen (insgesamt 3)

'============================Define Folders to be created============================================
Dim aFolders(3)
aFolders(0) = "Demo 0"
aFolders(1) = "Demo1"
aFolders(2) = "Demo2"
'============================Create New Folders============================================
    For i = 0 To UBound(aFolders) Step 1
Set FolderObj = SmSession.ObjectStore.NewObject(FolderClass.ClassId) 
    'Filling all attributes header to the object's data
FolderObj.AddAllAttributes
    'Setting all object's default values
    FolderObj.SetDefaultValues
    'Setting values to "CN_ID" and "CN_DESCRIPTION"
    'Retrieving the mask for the CN_ID attribute and then setting it to the object
    Set IDAttribute = FolderClass.Attributes.Item("TDM_ID")
    'Retrieving an SmSessionUtil object (Add-In service object)
    Set SessionUtil =SmSession.GetService("SmUtil.SmSessionUtil")
    'Retrieving the next mask into 'NextVal' and current mask into 'CurValue'
  NextVal = SessionUtil.RetrieveNextMask(IDAttribute,CurValue)
    'Setting the new mask in the CN_ID
    FolderObj.Data.Value("TDM_ID") = NextVal
FolderObj.Data.Value("TDM_DESCRIPTION") = aFolders(i)
    FolderObj.Insert
'Link Folder to Desktop
FolderObj.AssignToRootEx WorkObject, 0, LinkObject, RootObject, Behavior
Next

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP