Path Property Example

This example saves the active presentation in the same folder as PowerPoint.

With Application
    fName = .Path & "\test presentation"
    ActivePresentation.SaveAs fName
End With