how to get filename without extention

how to get filename without extention

Anonymous
Not applicable
711 Views
2 Replies
Message 1 of 3

how to get filename without extention

Anonymous
Not applicable

Hi there,

 

Using the following code to create a filename when I use my macro to create a DXF of a flat pattern in my sheet metal part:

 

Dim strPath As String
strPath = oPartDoc.FullFileName
Dim oDXFfileNAME As String
oDXFfileNAME = strPath & ".dxf"

 

Dim oDataIO As DataIO
Set oDataIO = oPartDoc.ComponentDefinition.DataIO

 

  oDataIO.WriteDataToFile sOut, oDXFfileNAME

 

 

My files are now saved as fullfilename.ipt.dxf

 

How do I get rid of the itp part

So how do I get the full name of the file in strPath without the ".ipt"

 

Thanks in advance!

0 Likes
Accepted solutions (1)
712 Views
2 Replies
Replies (2)
Message 2 of 3

Anonymous
Not applicable
Accepted solution

solved it

0 Likes
Message 3 of 3

j.romo
Advocate
Advocate

How did you solve it?

0 Likes