Avi Prager

What to write in macro, so the file will be saved at permanent library?

Discussion created by Avi Prager on Jan 26, 2016
Latest reply on Feb 1, 2016 by Avi Prager


I have a macro that saves a file where the source file is.

What I need to change, so that I can keep it in a fixed place?

For example, C: \ MY-DXF \

Thanks, Avi



Dim swApp As Object

Dim Part As Object

Dim Annotation As Object

Dim Gtol As Object

Dim DatumTag As Object

Dim FeatureData As Object

Dim Feature As Object

Dim Component As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long



Sub main()



Set swApp = _


Set Part = swApp.ActiveDoc

FilePath = Part.GetPathName

PartName = Left(FilePath, Len(FilePath) - 7)



longstatus = Part.SaveAs2(PartName & ".DXF", 0, False, True)

End Sub