Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
MechMachineMan
in reply to: phila

You could try with alternate syntax and see if that helps...

 

oActiveDocName = ThisApplication.ActiveDocument.FullFileName

 

 

 

'"This is cool"

'Search c with instrev would return 4 as it is 4th from the end

'Thus, subtract 3 from the 12 char length to get the pos from left; 9

 

oPos = Len(oActiveDocName) - InStrRev(oActiveDocName, "\")

 

'We know the location of the last \ now, so we use left to take all of the string infront of that.

 

'This will return the folder length without the last slash, to get the slash, simply change oPos below to oPos + 1

'ie'; C:\MyDocuments will be returned by this.

 

oFolder = Left(oActiveDocName, oPos)

 

MsgBox(oFolder)


--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.

Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization


iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread

Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects

Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help

Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type