Hi,

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

MY MACRO IS -

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 = _

Application.SldWorks

Set Part = swApp.ActiveDoc

FilePath = Part.GetPathName

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

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

End Sub