Folder creation

[phila]

Why does this create a folder with an added character?

It adds a "T" or a "C" depending on the name of folder the the drawing is in.  In this case, the folder named T-II creates "TPDF" and Commom creates "CPDF"

oFolder = ThisDoc.Path (InStrRev(ThisDoc.Path,"\")) & "PDF"

'Check for the PDF folder and create it if it does not exist

If Not System.IO.Directory.Exists(oFolder) Then

System.IO.Directory.CreateDirectory(oFolder)

End If

What is the correct way to do this?

[MechMachineMan]

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)

[phila]

Thank you for the reply.

I'm trying to learn/understand code writing, how it works, and how to apply it. All help and explaination is much appreciated.

Still don't completly understand your explaination on how it works and why it would be used over something more simplistic.

More study needed to get a good understanding of what it does and why to use it.

I found other iLogic code here on the forum where they were saving to a folder and if it didn't exist, create it.

This what I ended up with that does work.

oFolder = ThisDoc.Path & "\PDF FILES"

'Check for the PDF FILES folder and create it if it does not exist

If Not System.IO.Directory.Exists(oFolder) Then

System.IO.Directory.CreateDirectory(oFolder)

End If

Does this create or allow problems?

[MechMachineMan]

It's just using a more inventor specific method. ThisDocument.Path is
iLogic addin specific

[phila]

I tried Thisdocument.path instead of ThisDoc.Path and get an error needing to declare it. Could do that easily, just adds another line to do it.

The code uses ThisDoc.Path and ThisDoc,FileName. Neither are declared as far as I can tell in the overall code, but still work.

Is ThisDoc used in VB and just happen to work in Ilogic without declaring it?

[MechMachineMan]

It's an iLogic snippet; the iLogic add-in for inventor contains 'shortcut'
snippets which make you type a little less. If you look in inventor
programming help it gives you full/proper methods and properties that would
work without the inventor add-in called if you ever expand to making
add-ins or external .exe's that access Inventor functionality.

Ie; ThisDoc is the shortcut for ThisApplication.ActiveDocment which is
actually an inventor shortcut for a call to the inventor app... which would
have to be called by something like m_InvApp = ApplicationId
(2938-9843-183838-1¥2¥)...... or at leat I'm pretty sure of haha

[phila]

Thanks again for the clarification.