Foldername to Project ipropertie

[jostroopers]

I make a copy design from vault basic.
I put the model in a folder called 202020.

I open the main assy and with a rule I want to have the folder name, 202020, taken over by the ipropertie Project.
Is this possible with an ilogic code?
Can / will someone help me with that?

[FINET_Laurent · Accepted solution]

Morning,

I suppose there is a quicker way to this but here is my go :

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

Dim oDocPath As String = oDoc.FullFileName
Dim oDocName As String = oDoc.DisplayName

	Dim oDocPath2 As String = Split(oDocPath, "\" & oDocName)(0)

		Dim FolderName As String = oDocPath2.Remove(0, oDocPath2.LastIndexOf("\") + 1) 

iProperties.Value("Project", "Project") = FolderName

Regards,

FINET L.

[bradeneuropeArthur]

Edit.

I understood wrong!

[jostroopers]

Thanks Finet.

How will it go if I create some subfolders in the root folder 202020.
I still want the iproperty to point to the root directory.
So if I put a model in the folder 163000 and 163005, the iproperty, Project, should still take the value 202020 in these models.

[FINET_Laurent · Accepted solution]

This whould go like this :

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

Dim oDocPath As String = oDoc.FullFileName
Dim oDocName As String = oDoc.DisplayName

	Dim oDocPath2 As String = Split(oDocPath, "\" & oDocName)(0)
		
		Dim FolderName As String = oDocPath2.Remove(0, oDocPath2.LastIndexOf("\"))
		
			Dim oDocPath3 As String  = Split(oDocPath2,FolderName)(0)
		
				Dim FolderName2 As String = oDocPath3.Remove(0, oDocPath3.LastIndexOf("\") + 1)
		
iProperties.Value("Project", "Project") = FolderName2

The thing is, you need 2 rules for both cases... Is it an issue in your case ?

If yes you might need to take a different aproach.

Regards,

FINET L.

[jostroopers]

@FINET_Laurent Super thanks.
This is no problem. If I have one model in an order, I use rule number 1. If I have several models that are placed in subfolders in an order, I use rule number 2.

Kind Regards.

[FINET_Laurent]

@jostroopersGlad I could help 😄 !

[jostroopers]

@FINET_Laurent 

I made a change and now the second code is not working.

Instead of the folder 163000 I now use 02_9_Vast Daklicht.
Now the ipropertie 'Project' gets the value 02_9_Vast Daklicht instead of 202020.
Is that because of the different value of the sub folder?