vba get file directory code example

Example: excel vba get the path of current workbook

'VBA function to retrieve this workbook's full path:

Function FullPath()
    With ThisWorkbook
        FullPath = .Path & Application.PathSeparator & .FullName
    End With
End Function

'--------------------------------------------------------------------

MsgBox FullPath