It does indeed, it will get you what you need.
I would, however, recommend something a bit easier to read than the "Left" and "Mid" commands, something like this:
'Get the folderpath of this file
Dim modelPath As String
modelPath = swModel.GetPathName()
'Find the character number for the final slash
Dim foldernameStart As Integer
foldernameStart = modelPath.LastIndexOf("/")
'Get the text behind the final slash: this is the folder name
Dim folderName As String
folderName = modelPath.Substring(foldernameStart)
I would like it to add in the custom file property "folder name" to the part model itself while in the drawing of it. Then rebuild or I'll rebuild it so it populates into my drawing in the title block. As of now I select this button in the model itself for most of my parts. Its the ones that I don't use my macro sequence that I always miss hitting the button and once in the drawing I have to go back to the model and run the macro. I was hoping to have that avenue of doing it from with the model or a new avenue for adding in that custom property line of the "model" from within the drawing. The customer name is linked to that property bar of the model.