Message 1 of 14
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello together,
I found an old thread with the same problem but without a solution
Dim m_inventorApp As Inventor.Application = Nothing
m_inventorApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
Dim oProjectManager As DesignProjectManager
oProjectManager = m_inventorApp.DesignProjectManager
'Dim oProject As DesignProject
Dim strWorkspacePath As String
strWorkspacePath = oProjectManager.ActiveDesignProject.WorkspacePath
MsgBox(strWorkspacePath)
oProjectManager.ActiveDesignProject.FrequentlyUsedPaths.Add("Modelle", strWorkspacePath & "\Modelle")
oProjectManager.ActiveDesignProject.FrequentlyUsedPaths.Add("Zeichnungen", strWorkspacePath & "\Zeichnungen")How could I add the paths? The folder exists already.
Thanks
Georg
Solved! Go to Solution.
