AnsweredAssumed Answered

How to get Current Active Folder Path?

Question asked by Sebastian Janik on Nov 9, 2016
Latest reply on Nov 9, 2016 by Sebastian Janik

Like • Show 0 Likes0
Comment • 4

Im working on creating an easy macro way of moving files into folders within a current working directory. The Active file path changes based on project folders in project directory.

So far Ive tried:

MyPath = CurDir ' doesn't work

MyPath = swApp.GetCurrentWorkingDirectory ' doesnt give me me correct directory jumps from previous folders ive used

MyPath = Part.GetPathName ' works but i need to cut off title by Part.GetTitle, but for drawings get title adds "- Sheet" which is a pain to remove since the sheet can be default or custom named depending on person creating drawings.

Is there a simple way to get active folder path?

Also is there a way to get drawing name without the sheet?

Once i get the active folder path, i can save a PDF into the \PDF's folder, send rev's to the \Revisions folder ect.

Thanks in advance,

Sebastian

Christian Chu Nov 9, 2016 12:35 PM

Correct Answer

Here is the code to get the document name and you can use the sub-string to get the path

If swModelDoc.GetType <> 3 Then
        sModelName = Left(swModelDoc.GetTitle, InStrRev(swModelDoc.GetTitle, ".") - 1): Debug.Print "File name without Extension: " & sModelName
    Else
        sModelName = Left(swModelDoc.GetTitle, InStrRev(swModelDoc.GetTitle, "-") - 2)
    End If

See the reply in context

No one else had this question

Outcomes

If swModelDoc.GetType <> 3 Then sModelName = Left(swModelDoc.GetTitle, InStrRev(swModelDoc.GetTitle, ".") - 1): Debug.Print "File name without Extension: " & sModelName Else sModelName = Left(swModelDoc.GetTitle, InStrRev(swModelDoc.GetTitle, "-") - 2) End If

Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc Dim MyPath As String Dim FileName As String Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc 'Get Folder Path MyPath = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\")) Debug.Print MyPath 'Get File Name Withot Extension FileName = Mid(swModel.GetPathName, InStrRev(swModel.GetPathName, "\") + 1) FileName = Left(FileName, InStrRev(FileName, ".") - 1) 'Remove -1 if you need the . after file name Debug.Print FileName End Sub

4 Replies

Actions

Sebastian Janik @ Christian Chu on Nov 10, 2016 7:43 AM
Mark Correct
Correct Answer
Great, Thanks
Like • Show 1 Like1
Actions

Deepak Gupta Nov 10, 2016 3:11 AM

GetPathName is the easiest to use with either file type to get the folder or file name with/without extension.

Sebastian Janik @ Deepak Gupta on Nov 10, 2016 7:43 AM
Mark Correct
Correct Answer
Great, Thanks
Like • Show 0 Likes0
Actions

How to get Current Active Folder Path?

Outcomes

Related Content

Recommended Content