I've been trying to create a macro that saves a part as a .step file, while saving all created step files into a specified folder (for example "C:\step\").

I know there is a way to run the macro and the specify the folder yourself, but I want to have it automatically saved into the same folder every time.

Can anyone help me with this?

Right now I have this:

------------------------------------

Option Explicit

Dim swApp As Object

Dim Part As Object

Dim FilePath As String

Dim PathSize As Long

Dim PathNoExtention As String

Dim NewFilePath As String

Dim FileLocation As String

Dim Rev As String

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

FilePath = Part.GetPathName

PathSize = Strings.Len(FilePath)

Rev = Part.CustomInfo("Revision") ' Change Custom Property Here

FileLocation = "C:\step\"

PathNoExtention = Strings.Left(FilePath, PathSize - 7)

NewFilePath = FileLocation & PathNoExtention & " REV " & Rev

Part.SaveAs2 NewFilePath & ".STEP", 0, True, False

End Sub

---------------------------------

Thanks