Or stripping off the last sub directory in a path. I have a nice macro that will save a SLDDRW as a “DWG”
It currently saves the “DWG” in, and makes one if it does not exist, an AutoCad directory IN THE CURRENT folder.
I just want to change it to save the “DWG” in, and makes one if it does not exist, an AutoCad directory IN THE FOLDER ABOVE THE CURRENT folder.
The code to get the current path now is thus:
filename = swModel.GetPathName
currPath = Left(filename, InStrRev(filename, "\"))
filename = Right(swModel.GetPathName, Len(swModel.GetPathName) - InStrRev(swModel.GetPathName, "\"))
AutoCadPath = currPath & "AutoCad"
I just do not know how to return a path “Up-One” level\directory
uponedir=?????
_____EDIT_____EDIT_____EDIT______________________________
Following the pointers by David Lane and adding the following bits where needed...
Dim oFSO As Object
Dim CurPthFilNm As String
Dim uponedir As String
-----------------------------------------------------------------
Set oFSO = CreateObject("Scripting.FileSystemObject")
CurPthFilNm = swModel.GetPathName
uponedir = oFSO.GetFile(CurPthFilNm).ParentFolder.ParentFolder.Path & "\"
AutoCadPath = uponedir & "AutoCad"
It works great
Thanks
SolidworksApi/macros