Dim loginEmail As String = "Spread@reasonables.com"

Dim APIKey As String = "Spread"

Dim campaignName As String = "CampaignName1"

Dim folderName As String = "FolderName1"

Dim MySpread As New SpreadAPI. SpreadWebService

Dim result As DataTable = MySpread.UpdateCampaignsFolder(loginEmail, APIKey, campaignName, folderName)

    /**
    * @name     UpdateCampaignFolder
    * @function Update Campaign Folder
    * @return
    * String: Update Campaign Folder Success/Fail/Error    
    */
    public function UpdateCampaignFolder($loginEmail,$apiKey,$campaignName,$folderName){
        $sendArr = array(
	        'loginEmail'        => $loginEmail,
	        'apiKey'	    => $apiKey,
	        'campaignName'	    => $CampaignName1,
                'folderName'	    => $FolderName1,
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        $result = $Client -> UpdateCampaignFolder( $sendArr );
        if( empty( $result ) ){
	        return -1;
        }
        return $result;
    }