Powerpoint VisualBasic Script

Sub saveAs()
    If ActivePresentation.Path = "" Then
        ActivePresentation.SaveAs FileName:="C:\C.ppt"
    Else
        ActivePresentation.Save
    End If
End Sub