Get Inventor's macros directory location programatically (VBA)

[Anonymous]

Hi,

In my macro I use ini file to write and read some settings, so I need to know the (macros) file "Default.ivb" location, which is set in "Application Options" > "File" > "Default VBA project", because in this directory I want to save my ini file. 

How can I get directory path where is placed "Default.ivb" file by using VBA?

Best regards,

Marek

[pball · Accepted solution]

ThisApplication.FileOptions.DefaultVBAProjectFileFullFilename

This returns the full file name of the VBA script file. You'll have to strip the file name to get the folder.

[Anonymous]

 Thanks for reply! This is a ready function that I wrote:

Function GetMacrosDirectory() As String 'returns Inventor's "Macros" directory: C:\Users\Public\Documents\Autodesk\Inventor 2018\Macros\
  Dim IvbFilePath As String
  IvbFilePath = ThisApplication.FileOptions.DefaultVBAProjectFileFullFilename 'returns: C:\Users\Public\Documents\Autodesk\Inventor 2018\Macros\Default.ivb
  GetMacrosDirectory = Left(IvbFilePath, InStrRev(IvbFilePath, "\"))   'get the directory path for the "Default.ivb" file
End Function

Best regards. 

Marek