Help with getting root folder name.

[Kayslover]

Hi All,

I am running a macro from a saved file in folder structure:-

D:\Club Stuff\\Membership\2021

I would like to save a file to the root structure (i.e 1 folder up).

D:\Club Stuff\\Membership

What VBA code can I use to achieve this.

The macro already has the following Statement:-

fPath = ThisWorkbook.Path & "\"
FolderName = ThisWorkbook.Path & "\"
Dim CurrentFile As String

Thanks in anticipation.

 

[Peter_SSs]

See if this would help.

Sub GetFoldername()
  Dim RequiredFolder As String
  
  RequiredFolder = ThisWorkbook.Path
  RequiredFolder = Left(RequiredFolder, InStrRev(RequiredFolder, "\"))
  MsgBox "Is this the folder you want? " & vbLf & RequiredFolder
End Sub

 

[Kayslover]

Peter_SSs,

Worked a treat, Thamk you very much.

 

[Peter_SSs]

You're welcome. Thanks for the confirmation.