This example displays the path and file name of every available add-in.
For Each a In Application.AddIns
MsgBox a.FullName
Next a
This example displays the path and file name of the active presentation (assuming that the presentation has been saved).
MsgBox Application.ActivePresentation.FullName