Update Path Admin through SDK

Dear All,
   Today , We will see, How to Update Path Admin through SDK

Public Function UpdatePathAdmin(ByVal WordTemplateFolderPath As String, ByVal PicturesFolderPath As String, ByVal AttachmentsFolderPath As String, ByVal ExtensionsFolderPath As String) As Boolean
        Dim oCompanyService As SAPbobsCOM.CompanyService = Nothing
        Dim oPathAdmin As SAPbobsCOM.PathAdmin = Nothing
        oCompanyService = oApp.SAPCompany.GetCompanyService

        Try
            If Not String.IsNullOrEmpty(WordTemplateFolderPath) Then
                oPathAdmin.WordTemplateFolderPath = WordTemplateFolderPath
            Else
                oPathAdmin.WordTemplateFolderPath = oPathAdmin.WordTemplateFolderPath
            End If
            If Not String.IsNullOrEmpty(PicturesFolderPath) Then
                oPathAdmin.PicturesFolderPath = PicturesFolderPath
            Else
                oPathAdmin.PicturesFolderPath = oPathAdmin.PicturesFolderPath
            End If
            If Not String.IsNullOrEmpty(AttachmentsFolderPath) Then
                oPathAdmin.AttachmentsFolderPath = AttachmentsFolderPath
            Else
                oPathAdmin.AttachmentsFolderPath = oPathAdmin.AttachmentsFolderPath
            End If
            If Not String.IsNullOrEmpty(ExtensionsFolderPath) Then
                oPathAdmin.ExtensionsFolderPath = ExtensionsFolderPath
            Else
                oPathAdmin.ExtensionsFolderPath = oPathAdmin.ExtensionsFolderPath
            End If
            oCompanyService.UpdatePathAdmin(oPathAdmin)
            Return True
        Catch ex As Exception
            Return False
        Finally
            If oCompanyService IsNot Nothing Then
                oCompanyService = Nothing
            End If
        End Try
    End Function